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O Microcomputador AS$-1000 
é uma ótima escolha para quem está 
iniciando na ciência da computação. Seus 
recursos de programação e sua concepção 
modular, porém, permitem que ele 
o acompanhe até as aplicações mais 
sofisticadas. 

O AS$-1000 já nasce com uma biblioteca de 
milhares de programas para jogos, 
administração doméstica, aplicações 
comerciais e profissionais. 

O AS$-1000 é fabricado com a qualidade 
ENGEBRÁS e garantido por um ano. 

Entre na era da informática com a escolha 


certa. A$-1000, o seu micro pessoal. 
Escreva-nos, sua correspondência não ficará sem resposta. 
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ELETRÔNICA E INFORMATICA LTOA, 
Rua do Russel, 450 - 3º andar 
cep 22210 Rio de Janeiro - RJ 
Tel.: (021) 205-4898 


A é NR 


MCARD * SOFTCARD * VIDEOTERM * SOFTVIDEO SW * PROGRAMMER * PROTOCARD * INTF 


RINT e SATURN 128K RAM. * SATURN 64K RAM, * SATURN 32K RAM, * RANA QUARTETO * MICROMODEM | 


e MICROBUFFER 


| * MICROCONVERTER || EE MICRO VOZ | EE ULTRATERM EE ALF 8088 CARD 
E ABOO DISK CONT E MULTIFUNCTION CARD 


MICROCRAFT MICROCOMPUTADORES LTDA 


ADMINISTRAÇÃO E VENDAS: AV. BRIG. FAR 1.664 - 3º ANDAR - CJ 316 - CEP 01452 
FONES (011) 212-6286 E 815-6723 - SAO PAULO - SP - BRASIL 


NAS 
LHSKS 


















E a 
anterior nas seguintes 
funções: 


Administração e Controle de Repre- 
sentação de Terceiros 


Administração de Aluguéis 
Administração de Condomínios 
Administração de Construtoras 


Administração de Loteamentos e 
Imóveis 


Administração de Transportadoras 
Administração Hospitalar 

Apuração de Custo por Curva de Ser- 
viços UNIMED 

Armazéns Gerais 

Arrecadação Tributária 

Ativo Fixo 

Ativo Fixo com Correção Anual em 
Cruzeiros, Dólares e ORTNs 

Ativo Fixo com Correção Mensal, Tri- 
mestral e Semestral em ORTNs 
Business Calc 


Cadastramento e Custos de Equipa- 
a mentos 


Cadastramento 
Genérico 


Cartão de 
Crédito 


Cartórios 
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» Datalife tem 
resposta para tudo. 


a resposta fica mais rápida através da Vector. 
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14 APRENDA INGLES COM 
ANIMALS — Você já viu 
algum animal falando Inglês? 
Claro que não. Mas você poderá 
vê-los ajudando a ensinar 

Inglês através deste programa 


para a linha Sinclair. 


> DESCUBRA O 
FORMATO DE UMA 
FITA CASSETE — “Elementar, 
meu caro Watson”, diria 
Sherlock Holmes, mas com este 
utilitário desenvolvido por 

João Henrique Volpini Mattos 
você também será capaz de 
descobrir rapidamente a 00 
formatação de qualquer fita ESEr SEE 
cassete gravada nos micros 

TRS-80. 


12 TUTOR MATEMÁTICO — Programa de 
Paulo Sérgio Gonçalves. 


28 ESTUDE FÍSICA COM O MICRO — 
Programa de Jorge Santana de Oliveira. 


30 NA TRILHA DOS ERROS DE 
PROGRAMAÇÃO — Artigo de Roberto 
Quito de Sant'Anna. 


32 INTELIGÊNCIA ARTIFICIAL — II — 
Artigo de Antonio Costa. 


36 PACOTÃO DE HARDWARE PARA OS 

SINCLAIR — Artigos de Marcelo Shirama 
Lancarotte, André Koch Zielasko e Humberto 
Kazuo Nakashima. 


48 UM REM DE INFINITOS BYTES — 
Programa de Daniel Hendrick. 


5() O MICROCOMPUTADOR NA SALA DE 

AULA — Reportagem sobre o uso de 
micros em colégios e sobre o software existente 
no mercado. 
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52 A INICIALIZAÇÃO DO 
MONITOR NO CP-500 - 
De que instruções compõe-se 

o software básico deste 
equipamento? De forma 

| simples e detalhada, Mauricio 
Baduy adentra o monitor 
residente rio CP-500, mostrando 
o que acontece na UCP quando 
damos partida no micro. 


6 JOGANDO COM AS 
PALAVRAS — Provando 
que é capaz de formar mais 
palavras que seu adversário, 
a criança desenvolve a arte de 
soletrar. Neste programa de 
Heber Jorge da Silva para a 
linha TRS-80, também os adultos 
poderão demonstrar seus dotes 
linguísticos. 


65 O MICRO NO SHACK DO 
RADIOAMADOR — Artigo de Dirceu 
Pivatto da Silva, 


66 RAIZ QUADRADA? O MICRO ENSINA - 
Programa de Francisco Tropeano. 


72 UMA AULA SOBRE CIRCUITOS 
ELÉTRICOS — Programa de Simão Pedro P. 
Marinho. 


76 1/5, 2/3, 7/12... À TELA PARA 
APRENDER FRAÇÕES — Programa de 
Heber Jorge da Silva. 


18 CURSO DE ASSEMBLER — XIV 


82 DESENHE EM PERSPECTIVA - 
Programa de Jorge Rezende Dantas. 


45 HISTOGRAMA: EXAMINE 
RESULTADOS — Programa de Luís Peres 
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omo esta edição de MICRO 
SISTEMAS está de alguma 
forma ligada a volta às aulas, 
com alguns programas bastan- 
te interessantes e educativos para as cri- 
anças, resolvemos fazer a priori um pe- 
queno levantamento do que estaria dis- 
ponível no mercado na área de software 
didático. Mesmo procurando não recair 
num otimismo exagerado, achando que 
iriamos encontrar toda a sorte de bone- 
cos e bichinhos ensinando as nossas cri- 
anças os mistérios da lingua portuguesa, 
devo admitir que esperávamos bem mais 
do que foi encontrado. 





Realmente, trocando em miúdos, 
muito pouca coisa está disponível nas 
lojas, e uma fraca meia dúzia de títulos 
parece espelhar toda a criatividade que 
nossos produtores de software puderam 
ter. Ou pior, espelha ainda o pouco que 
é suficiente para suprir a demanda inst- 
pida de nosso mercado com relação a 
pacotes educacionais. 


E um verdadeiro jogo de empurra, 
sem nenhuma razão de ser, pois melhor 
seria admitir a falta de interesse, por 
não ser um bom negócio. Os lojistas di- 
zem não ter para venda pois não existem 
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programas disponíveis, além de reconhe- 
cerem a fraquíssima demanda (alguns 
quantificaram “uma média de duas pro- 
curas por mês") do consumidor final. A 
maioria das software-houses, por sua 
vez, explica a escassez de programas 
educativos no mercado pela absoluta fal- 
ta de procura por parte dos consumido- 
res e dos revendedores e lojas, seus prin- 
cipais clientes. De mais de um represen- 
tante de soft-houses ouvimos a expres- 
são “mau negócio ”. 


Enquanto isso, existem estabeleci- 
mentos para os quais a aplicação do mi- 
crocomputador na área didática pode 
vir a ser, e de fato já vem sendo, um 
“bom negócio”. São os colégios, princi- 
palmente os de segundo grau, que vêm 
utilizando este novo instrumento de 
apoio ao ensino, muitas vezes com bas- 
tante desembaraço. 


Talvez até pela falta de outras opções 
no mercado, a maioria dos colégios que 
tem participação mais ativa neste sen- 
tido criou equipes próprias para o desen- 
volvimento de seus programas. Geral- 
mente formadas por professores da esco- 
la, algumas vezes contando com o apoio 
de analistas contratados, estas equipes 
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buscam uma solução nacional mais viá- 
vel do que depender de um mercado es- 
casso e com produtos, em sua maior par- 
te, elementares demais. Já outros colé- 
gios, embora não esquecendo a nova 
“revolução do ensino ”, optaram por so- 
luções mais simples, como somente a 
inserção do BASIC em sua pauta curri- 
cular, livrando-se com isto da dor de ca- 
beça de procurar definir os objetivos da 
aplicação da máquina, quem produzirá 
o software e qual o investimento desti- 
nado ao projeto. 


De qualquer maneira, questionar a 
forma como vêm sendo introduzidos os 
computadores nas escolas particulares e 
as dificuldades de sua introdução nos 
estabelecimentos públicos, ainda caren- 
tes de infra-estrutura mais elementar, é 
um dever de toda a sociedade brasileira. 
Durante a leitura, contudo, vejamos o 
que os usuários interessados na área tém 
desenvolvido. 
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A Clappy tem tudo 
pra você levar 0 





Na Clappy, além de você encontrar a melhor solução para 
o seu problema, você encontra também assistência tecnica 
própria, cursos de programação e operação, consultoria, 
“softwares”, periféricos, suprimentos e a 
implantação de sistemas aplicativos 
comerciais e de apoio à decisão. 


APLICATIVOS COMERCIAIS int 
Contabilidade : E | 
Controle de estoque = ERREI | ernrenaça 
Folha de pagamento ' 
Contas a pagar ea receber | 

Além de qualquer outra solução que 
a Clappy pode desenvolver para você 


APLICATIVOS DE APOIO A DECISAO 
Planilha Financeira 
Processamento de textos 
Mala Direta 

Cadastro de Clientes 
Controle Financeiro. 


AP Il - Clappy 
CPU com 64 Kbytes, placa CPM, 









2 drives, monitor de vídeo Hincheste 
Instrum e impressora de otalição 


garantida 


100 cps. 37 ORTNs mensais* 


* Taxa de leasing em 27.02.84 


CENTRO: 

Av. Rio Branco, 12 loja e sobreloja 

Tel.: (021) 2563.3395 

CENTRO: 

Rua Sete de Setembro, 88 - loja O (Galeria) 
Teis.: (021) 222.5517 - 222.5721 


Venha à nossa lojaou solicite a visita 
de um representante. 


unitron 


COPACABANA: 

Rua Pompeu Loureiro, 99 Tels.: (021) 257.4398 - 236.7175 

Aberta diariamente das 10 às 20 horas e aos sábados das 10 às 15 horas. 
Estacionamento próprio. 
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O sorteado deste mês, que receberá 
gratuitamente uma assinatura de um ano 
de MICRO SISTEMAS, é Vicente de Paulo 
Gawryszewsk, do Rio de Janeiro. 


FÓRMULAS DO AFINIDADES 


Gostaria de saber se o Senhor Bruno 
Barasch poderia ceder as fórmulas matemá- 
ticas que utilizou para fazer o programa 
“Uma questão de afinidades”, que saiu na 
MS nº 16, pois não consegui converter o 
programa para a T|-58. 

Robinson dos Santos Pereira 
Rio de Janeiro-RJ 


Pedimos so Bruno Barasch e este nos ce- 
deu gentilmente as fórmulas. Aí vão: 


* PESSOA | Data de nascimento D1/M1I/AI1 


onde : D! = DIA, M! = MÊS, Ai = ANO 
SE MI>2 ENTÃO : MÊS] = M1+41 
ANO) = A] 
SE MI=1 OU 2 : MÊS] = M1+13 
ANO! = Al-1 
Ano Juliano = J1 = INT(365.25%*ANO1) 
+INT(30.6001*MÊS 
1)+D1 


*PESSOA 2 Data de nascimento D2/M2/A2 


SE M2>2 ENTÃO : MÊS2 = M2+1 
ANO2 = AZ 

SE M2=1 OU 2 : MÊS2 = M2+13 
ANO2 = A2-1 


Ano Juliano = J2 = INT(365.25ºANO2) 
+INT(30.6001ºMÊS 
2)+D2 


Diferença de Dias entre 1 e 2 =Dx= 
ABS(J1-J2) 


Afinidade = 10O*ABS(((FRC(D/C)*C)- 
(C/2)1/4C/2)) 


Onde : € = 23 Afinidade Física 


C = 28 Afinidade Emocional 
C = 33 Afinidade Mental 
OBSERVAÇÕES : INT = VALOR INTEIRO, 


FRC = VALOR FRACIONARIO 
ABS = VALOR ABSOLUTO 
O valor da afinidade é 
percentual (0 - 1004) 


PROTEXTO 


(. . .) Com respeito ao processador de 
textos da Digitus, PROTEXTO, comunico 
que recebi uma nova fita que funcionou a 
contento. Agradeço a interferência de 
MICRO SISTEMAS, que comprova mais 
uma vez a elegância e o estilo de uma publi- 
cação de nível internacional. 

Deixo, no entanto, registrado que a Digi- 
tus enviou-me, juntamente com a nova fita, 
a fotocópia xerox da correspondência que 
deve ter remetido a vocês. Menciona nesta 
correspondência que a carta que enviei não 
foi recebida, o que, para mim, não justifica a 
demora em me atender, pois a Compeel (fir- 
ma que me atendeu e onde comprei o pro- 
grama) entrou em contato telefônico com a 
Digitus, não sendo atendida, do mesmo mo- 
do que eu. 


Felizmente tudo se resolveu a contento, 
e deixo aqui meus votos de prosperidade e 
desenvolvimento. Continuem assim, para 
cima. 
Pedro Paulo Luz C. FO 
Brasília — DF 


Agradecemos por nos ter dado notícias 
sobre seu problema com a Digitus e ficamos 
satisfeitos em saber que tudo foi resolvido. 
Obrigada também pelo incentivo. 


INTELIGÊNCIA ARTIFICIAL 


Jamais escrevi para uma revista especiali- 
zada em computação, por um motivo muito 
particular: a maioria das comercializadas em 
bancas tratam da questão da Informática 
com uma concepção demasiadamente utópi- 
ca e futurística, empregando termos técni- 
cos de um nível tão elevado que os próprios 
redatores das ditas publicações não enten- 
dem, gerando com isso uma série de mal-en- 
tendidos e inconvenientes presentes com 
uma frequência indesejável. 

MICRO SISTEMAS foge completamente 
a esse padrão, colocando a máquina no seu 
devido lugar, ou seja, prestando grandes ser- 
viços e operando com quantidades de infor- 
mações impossíveis ao homem. E foi justa- 
mente este assunto que me levou a escrever 
a vocês: li recentemente na revista Byte, ame- 
ricana, um excelente artigo sobre os estudos 
com a Inteligência Artificial, porém essa 
revista não abordou mais o assunto. Gostaria 
de saber quais os progressos feitos nesse 
campo da Informática. 

Sérgio Rodrigues Salgueiro 
Piracicaba — SP 


Consultamos nosso colaborador, Profes- 
sor Antonio Costa, que é um profundo co- 
nhecedor da Inteligência Artificial no Brasil, 
e ele, em resposta, nos mandou a seguinte 
carta: 

“Na minha opinião, os principais aconte- 
cimentos em Inteligência Artifical ocorridos 
nos últimos dois anos são: 

1. O Japão lança um projeto com dez anos 
de duração, visando a construir um compu- 
tador de quinta geração. Este computador 
será capaz de falar inglês e japonês, fazer 
traduções, programar outros computadores, 
enxergar cenas, etc; 

2. Os Estados Unidos entram na corrida 
para construir um computador de quinta ge- 
ração alocando verbas fabulosas para pesqui- 
sas em Inteligência Artificial (só o Pentágo- 
no alocou 1 bilhão de dólares para serem 
gastos em cinco anos. Não deixa de ser la- 
mentável que parte das pesquisas em Inteli- 
gência Artificial seja financiada por institui- 
ções militares); 

3. Bancos de Dados capazes de entender 
Inglês, Japonês, Alemão, Francês e até 
Português começam a ser vendidos nos Esta- 
dos Unidos. Entre os usuários de tais Bancos 
de Dados estão o Bank of America e a 
AVCO; 

4. Foram construídos pela Xerox e pela 
Symbolics Inc. Computadores especialmente 
projetados para executar programas escritos 
em LISP, a principal linguagem da Inteligên- 
cia Artificial; 

5. Os japoneses anunciam para 1985 um 
computador pessoal capaz de executar efi- 
cientemente programas em PROLOG, a lin- 
guagem que ocupa o segundo lugar em po- 
pularidade entre as pessoas que trabalham 
com Inteligência Artificial.” 

Antonio Costa 

Rio Claro — SP 


CADERNO BASIC 


O número de dezembro de MICRO SIS- 
TEMAS (MS nº 27, pág. 82) publicou um 
artigo meu chamado “Meu caderno BASIC 
de programas idiotas”. Por um desses misté- 
rios que ocorre entre o original e a reprodu- 
ção, não saiu o agradecimento ao colega e 
programador Nelson Batista de Almeida, 
cuja revisão, palpites e paciência tornaram 
possível o artigo. 

Luís Carlos S. Eiras 
Belo Horizonte-MG 


Pedimos desculpas por esta omissão, 
Eiras. Aproveitamos para agradecer mais 
uma vez, a você e ao Nelson, por colabora- 
rem conosco. 


CALENDÁRIO PERMANENTE | 


Ao fazer as modificações sugeridas pelo 
autor no programa “Calendário Permanente” 
(MS nº 27, pág. 58), notei que o programa 
continha um erro. Por exemplo: se entrar- 
mos com a data 040284, não teremos como 
resultado o dia certo. O erro ocorrerá sem- 
pre que o ano for bissexto e o mês janeiro 
ou fevereiro. 

Para corrigir, proponho inserir a seguinte 
linha: 

107 IFS= OTHEN LETS= 7 
Roberto dos Santos Silva 
Rio de Janeiro-RJ 


Remetemos suas observações para o au- 
tor do programa “Calendário Permanente”, 
José Donizeti de Paula, e este nos mandou 
esta carta: 

“Com referência às observações do leitor 
Roberto dos Santos Silva, informo que o lei- 
tor tem razão; a linha 105 deve ser desmem- 
brada em duas linhas: 

105 LET S= S —- (A-B*4= 0 AND (M= 1 
ORM= 2)) 

107 LETS=S +7*(S= 0) 

O erro não foi detectado nos testes que 
fiz, visto que só ocorre nas datas de sábado 
de janeiro e fevereiro de anos bissextos”. 
José Donizeti de Paula 
Patrocínio Paulista-SP 


OPERAÇÕES COMPLEXAS 


Com relação à carta de Ernesto Seguchi 
(publicada na Seção de Cartas de MS nº 27, 
com o título “Operações Complexas''), gos- 
taria de informar que a função ATAN 2 
(do Fortran) pode ser implementada em 
apenas uma linha nos micros compatíveis 
com o TRS-80 modelo |, como a linha 70 
do exemplo a seguir: 


10 "TESTE DA IMPLEMENTAÇÃO DA 
FUNÇÃO ATAN2 (SN,CS) 

20 '*ONDE: SN=SINX E CS=COSX 

30 PI = 3.141592 

40 INPUT"ANGULO EM GRAUS =";X 

50 T =X * PI/180 

60 SN=SIN(T) : CS=COS(T) 

70 IF CS THEN T=ATN(SN/CS)-(C 
S<0)*PI ELSE T=(1-SGN(SN)/ 
2)*PI 

80 T = T*180/PI : PRINT "X="X 
pP="7 

90 GOTO 40 


Nesta implementação que apresentamos, 
os valores retomados estão entre —90º e 
270º . E se uma resposta entre 0º e 3600 
for indispensável, troque a linha 70 para: 


70 IF CS THEN T= ATN(SN/CS) - 
(CS<0+2*(CS>0 AND SN<0))*P 
I ELSE T= (1-SGN(SN)/2) 


Fernando Malheiros R. da Mota 
Niterói-RJ 


Li a carta de Ernesto Seguchi (MS nº 
27) sobre o problema do argumento nas 
operações complexas e fiz uma pequena sub- 
rotina que pode auxiliá-lo: 

IF RE = O THEN LET ARG = Pl/2 *SGN 

IM 
IF RE = MS THEN RETURN 
LET ARG = ATN (IM/RE) 

IF RE < O THEN LET ARG= ARG + PI 
RETURN 

Esta rotina detecta também se a parte 
real é zero, o que causaria erro de divisão 
por zero na terceira linha. A rotina foi feita 
para equipamentos da lógica Sinclair, mas 
pode ser facilmente traduzida para outros 
micros. É importante notar que o ângulo es- 
tá em radianos, podendo ser alterado, pos- 
teriormente, para graus: 

LET ARG = ARG X 180/PI 
Giangiacomo Ponzo Neto 
Rio de Janeiro-RJ 


Nós, e o Ernesto, agradecemos muito a 
intenção de colaborar: muito obrigada. 


MS AGRADECE 


A sua revista MICRO SISTEMAS me há 
dado .mucha curiosidad por conocer el len- 
guaje BASIC profundamente. Soy uruguayo, 
vivo en Rivera-Uruguay, frontera con Li- 
vramento-RS. No existe por estas ciudades 
cursos tan buenos como los publicados, ni 
como los existentes en las capitales. Soy 
programador en lenguaje COBOL y trabajo 
con un computador NCR 8150; no obstan- 
te, quiero perfeccionarme en el conocimien- 
to de micros y su lenguaje. 

Aqui en Livramento hay muchos micros 
y en ellos conseguiré practicar lo ensefiado 
por ustedes. No necessitan de mi felicitacio- 
nes pero tal vez ... nunca está demas felici- 
tarles por su publicacion mensual tan bue- 
na. 

Derby Miguez Correa 
Santana do Livramento-RS 


Parabéns pela matéria sobre a Ill Feira 
Internacional de Informática; foi a melhor 
cobertura que vocês já fizeram, e melhor 
que suas concorrentes. Todavia, falando co- 
mo parte integrante e interessada em soft- 
ware, não tivemos alegrias com esta maté- 
ria, pois já o título diz “Saldo positivo, ape- 
sar dos pesares”, e depreende-se pelo texto 
que o “pesar” foi o software. 


Concordamos com a matéria quando esta 
afirma que o mercado de software está con- 
fuso, mas isto é basicamente por causa do 
próprio consumidor, que ainda não sabe bem 
o que é software e como comprá-lo. E disso 
se aproveitam muitas lojas revendedoras de 
micros que usam o software para “forçar” a 
venda da máquina, e também os “piratas”, 
que se aproveitam do trabalho desenvolvido 
aqui no Brasil ou nos EUA e vendem cópias 
(sem assistência e sem garantia) por um pre- 
ço aviltado. 

(...) Há muita coisa séria a fazer para nos 
apoiar — a nós, empresas de software, que 


lutamos na mais absoluta falta de incentivos 
(da indústria, das lojas, dos órgãos como a 
SEI, e da imprensa especializada), e assim 
mesmo estamos criando e produzindo soft- 
ware de boa a excelente qualidade, venden- 
do-os com ética, garantia e assistência técni- 
ca ao usuário, alocando extensos recursos na 
pesquisa e desenvolvimento de novos siste- 
mas, investindo na qualidade de produção, 
na divulgação e comercialização. Para não 
falar nos salários e impostos que pagamos e 
no pessoal que treinamos. Tudo isso sem le- 
gislação protetora e sem legislação tributá- 
ria adequada (...). 

Que tal fazermos de 84 o “ano do soft- 
ware” na MICRO SISTEMAS? Conte co- 
nosco | (...). 

Guilherme de Oliveira Quandt 
Gerente da Monk Micro Informática Ltda, 


SUGESTÕES 


Acho sua publicação de bom nível. O 
tratamento tanto da parte técnica quanto 
da parte de programas é muito bom. Vê-se 
que as pessoas que colaboram para a sua re- 
vista incentivam as outras a colaborar tam- 
bém. Com relação à apresentação da revista, 
só tenho elogios: não há excessos de assun- 
tos, a leitura não é cansativa, o papel e a im- 
pressão são muito bons e a linguagem é 
bastante clara. Em suma, para uma revista 
praticamente nova, está além do que se de- 
veria esperar. 

Agora vêm as dolorosas críticas. São 
coisas pequenas que eu gostaria de ressal- 
tar, pois meu intuito é colaborar para que a 
revista atinja um nível mais alto. Tenho uma 
reclamação quanto a certas listagens, que 
vêm com alguns erros. São poucos, mas pa- 
ra que se possa analisar o programa (fazer 
diagrama e fluxo), é preciso que a listagem 
esteja correta. É extremamente desagradá- 
vel para quem possui um micro constatar 
que o programa não roda devido a erros. 

A segunda crítica é com relação à abor- 
dagem de linguagem de máquina. Muitas das 
pessoas com as quais eu comento a aborda- 
gem deste assunto reclamam da extrema 
complexidade do assunto: ou o texto não 
é claro, ou realmente o assunto é diffcil (...). 
Bernardo Meyer 
Belo Horizonte-MG 


Quero por meio desta parabenizar Ml- 
CRO SISTEMAS pelo excelente trabalho 
que vem desenvolvendo, pois não conheço 
outra revista nacional tão boa na área de mi- 
crocomputadores. 

Tenho um computador TK 85 da Micro- 
digital e gostaria que vocês procurassem 
adaptar mais programas para a linguagem 
BASIC. É que só conheço a linguagem BA- 
SIC, e mesmo assim com muita dificuldade, 
pois não tenho curso de nenhuma lingua- 
gem, sou novo na área de computação, e 
possuo um computador há apenas três me- 
ses. Por isso, gostaria de agradecer por todos 
os programas de outras linguagens que vocês 
puderem passar para o BASIC. 

Carlos Eugenio Nascimento 
Santos-SP 


Acho que vocês poderiam publicar a 
relação dos principais tipos de cursos que 
são ministrados no país, tanto nas universi- 
dades quanto nos cursinhos, mostrando os 
estágios de formação de profissionais em 
Informática, além de alguns esclarecimentos 
sobre as várias especializações existentes 
atualmente. 

Davi Rogério S. Castro 
Rio de Janeiro-RJ 





Assim como eu, muitos colegas meus 
sentem a falta de uma seção ou até um ca- 
derno interno na revista que trate dos pla- 
nos e tarefas do dia-a-dia desses profissio- 
nais. Vocês deveriam criar um caderno es- 
pecializado, com assuntos como: Redes de 
Computadores, Redes de Banco de Dados, 
Comunicação de Dados, Tipos de Comuni- 
cação de Dados e outros assuntos que inte- 
ressam a esse tipo de profissional. 

Carlos Roberto Cavalcante 
João Pessoa-PB 


Gostaria de tentar melhorar ainda mais 
a revista de vocês, contribuindo (penso eu) 
com algumas sugestões: 
— Mais matérias sobre o equipamento 
Apple; 
— Colocar sempre Tira-Teima sobre algu- 
mas questões mais complicadas ou mesmo 
sobre programas publicados em MS (como 
vocês já fizeram em MS nº 26, pág. 24); 
— Colocar mais dicas sobre o Apple; 
— Publicar os esquemas elétricos dos mi- 
cros fabricados no Brasil. 
Vicente de Paulo Gawryszewsk 
Rio de Janeiro-RJ 


Gostaria que vocês abordassem mais o 
COBOL e o FORTRAN. Acho que há mui- 
tos leitores que possuem computadores que 
dispõem dessas linguagens, mas não as ope- 
ram porque não entendem. 

Marcelo S. Parisotto 
Campinas-SP 


Atualmente, com a variedade de soft- 
ware disponível no mercado, por que não 
criar em MS um espaço destinado à análise 
de software? Esta é a minha sugestão. 
Antonio A. Caram Neto 
Belo Horizonte-MG 


Gostaria que fosse feito um Tira-Teima 
para o programa “Aventuras na Selva”, 
publicado em MS nº 23, da mesma forma 
que foi feito para o programa '“'Aeroporto 
83", na MS nº 26. 

Ary Fernando Beirão 
Rio de Janeiro-RJ 


Venho através desta fazer-lhes algumas 
sugestões: 
e Quea Seção BITS seja ampliada; 
e Que haja mais artigos referentes às apli- 
cações de micros e mínis dentro das grandes 
e médias empresas, dando-nos uma idéia me- 
lhor das aplicações destes; 
e Que façam artigos que tratem do uso de 
computadores no controle de processos, 
pois é uma área em grande desenvolvimen- 
to; 
e Que mensalmente seja editada uma tabe- 
la de preços dos diversos micros existentes 
no mercado. 
Cezar Luiz Grava 
Blumenau-SC 


Minha sugestão é a seguinte: MICRO SIS- 
TEMAS abriga um mundo de programas em 
BASIC. Que tal olhar um pouquinho mais 
para o lado do COBOL, já que é uma lin- 
quagem de boa aceitação no mercado? 
Domingues A. Guerra 
São Paulo-SP 


Sugiro que seja lançado um curso de pro- 
gramação das calculadoras TI-58 e TI-59, 
pois iria satisfazer um grande número de 
leitores desta revista. 

Antonio José de Barros da Silva 
Rio de Janeiro-RJ 


Envie suas sugestões para MICRO 
SISTEMAS. Elas serão anotadas em nossa 
pauta e procuraremios, na medida do 
possível, viabilizá-las. 








Com este programa, seu micro compatível com o TRS$-80 modelos |! ou Ill terá toda a paciência e boa vontade 
do mundo para treinar com as crianças as quatro operações aritméticas 








matemático 


programa que é apresentado a 
seguir tem como objetivo ser- 
vir de suporte básico no ensi- 
no de aritmética. Foi escrito 
em BASIC para os micros da linha TRS- 
80 modelos I ou III e também poderá 
rodar, com algumas pequenas modifica- 
ções, em equipamentos de outras linhas. 
Na estruturação do programa leva- 
ram-se em conta os seguintes aspectos: 
| — a escolha do tipo de operação que 
se deseja: soma, subtração, multiplica- 
ção ou divisão; 
2 a escolha do nível de dificuldade 
que se deseja imprimir (fácil, médio e di- 
fícil); 
3 — a eleição de dez questões. 
Um dos pontos importantes na ela- 
boração de programas educacionais ou 


5 REM "TUTOR" 
10 CLEAR: CLS 
15 PRINT 

20 PRINT " 
MATEMA Nr 

25 PRINT " 


30 PRINT " / 

35 INPUT"MEU NOME E CP-300 E O S 

EU";NS 

40 PRINT 

45 PRINT"NOME : ":NS 

50 PRINT 

55 PRINT "VAMOS ESTUDAR MATEMATI 

CA. VOCE DEVE ESCOLHER" 

60 PRINT "UM DOS EXERCICIOS ABAI 

XO INDICADOS :" 

65 PRINT 

70 PRINT " = ADICAO ( + 
1 

75 PRINT " = SUBTRACAO 

(-)" 

BO PRINT" 

AO ( X )" 

85 PRINT " (4) = DIVISAO ( 


MULTIPLICAC 


JO FOR 1=1 TO 1000; NEXT 
"DIGITE O NUMERO DO EXE 


95 INPUT 


Tutor 


Paulo Sérgio Gonçalves 





de jogos é, sem dúvida, a inclusão de ele- 
mentos de estimulação e movimentação 
de caracteres e/ou figuras no vídeo, não 
só para quebrar a monotonia fria da má- 
quina como também com a finalidade 
de manter o seu interlocutor sempre 
atento. 

Neste sentido, introduziram-se dois 
elementos no programa. O primeiro, o 
som, foi implementado através de uma 
pequena sub-rotina (ver listagem, passos 
1400 a 1450), a qual é chamada todas as 
vezes em que a questão apresentada pelo 
computador é respondida corretamente. 
O segundo elemento refere-se a um ros- 
to que se torna alegre quando a questão 
é respondida corretamente e sisudo 
quando a resposta é incorreta (ver lista- 
gem, passos 1500 a 1600). Para dina- 


Tutor Matemático 





RCICIO *:OP 

100 IF OP<1 OR OP>4 THEN GOTO 10 

105 CLS 

WO PRINT 

115 PRINT" NOME : ":NS 

120 PRINT 

125 PRINT " VOCÊ DEVE ESCOLHER O 
NIVEL DE DIFICULDADE :" 

130 PRINT 

135 PRINT " (1) 

/UM DIGITO)" 

140 PRINT " (2) 

IS/UM DIGITO)" 

145 PRINT * (3) 

DOIS/DOIS DIGITOS)" 

150 INPUT "ENTRE COM O NIVEL DE 

DIFICULDADE : ";NO&% 

155 IF NO%&<1 OR 

105 

160 RANDOM 

165 Ié&= Q 

170 FOR J=1 


JE “1 
+. 
[7/3 CLS 


FACIL (UM 


MEDIO (DO 


DIFICIL ( 


THEN GOTO 








mizar ainda mais, este rosto aparece no 
vídeo aleatoriamente em todas as posi- 
ções permitidas. Além disso, quando a 
resposta é incorreta, o computador emi- 
te uma mensagem, com a posterior in- 
formação do resultado correto. 

Para facilitar o entendimento da es- 
trutura lógica do programa, procurou- 
se introduzir vários comentários ao lon- 
go do mesmo, o que permitirá a compre- 
ensão básica de seu funcionamento pela 
simples leitura de sua listagem. 


Paulo Sérgio Gonçalves é engenheiro, possui 
Mestrado em Engenharia de Produção e uti- 
liza um CP-500 como hobby e em aplicações 
educacionais. 


300,400,500,600 


REM ADICAO 
ON NO$% GOSUB 700,750,800 
AS="+".: ES="ADICAO." 
D=X0+Y0 

GOSUB 1000 

GOSUB 900 

RETURN 

REM SUBTRACAO 

ON NO% GOSUB 700;750,800 
AS="—" ES="SUBTRACAO." 
D=X0-Yo 

GOSUB 1000 

GOSUB 900 

RETURN 

REM MULTIPLICACAC 

ON NO% GOSUB 700,750 
AS="X": ES="MULTIPLI 
D=X0*YO 

GOSUB 1000 

GOSUB 900 

RETURN 

REM DIVISAO 

ON NO$% GOSUB 700 
AS=":". E$="DIVIS 


Z0=XO*YO: D=XO: XO 





MICRO SISTEMAS, marco /84 


620 GOSUB 1000 

625 GOSUB 900 

630 RETURN 

700 REM SUBROTINA FACIL 

705 XO=RND(9) 

710 YO=RND(9) 

713 IF XO=YO THEN GOTO 705 
715 GOSUB 850 

720 RETURN 

750 REM SUBROTINA MEDIO 

755 XO=RND(99) 

760 YO=RND(9) 

763 IF XO=YO THEN GOTO 755 
765 GOSUB 850 

770 RETURN 

800 REM SUBROTINA DIFICIL 

805 XO=RND(99) 

810 YO=RND(99) 

813 IF XO=YO THEN GOTO 805 
815 GOSUB 850 

820 RETURN 

850 REM COMPARACAO 

855 IF XO<YO THEN Z=XO: XO=Y0: 
0=2 

B60 RETURN 

900 REM OPERACAO DISPLAY 

905 INPUT"ENTRE COM A RESPOSTA"; 
R 

910 R$=(LEN(STRS(R))-1) 

915 IF R<>D THEN GOTO 925 
$=[1%+1: PRINTO734," : PF 
TO735-R$,R: PRINTOBS63,"** MU 
T É BEM ! **". GOSUB 1400: 
O0:GOSUB 1500 

920 FOR 1=1 TO 500: NEXT: GOTO 9 
70 

925 PRINTOB63,"* ":R;" * NAO EST 
A CORRETO!" 

930 PRINTO924," AGUARDE A RESPOS 
TA ae 

935 FOR I=1 TO 600: NEXT 

940 D$=(LEN(STRS(D))-1) 


54 
VÃ 


945 PRINTO863," 

950 PRINTO924," 

955 PRINTO734," 

960 PRINTG735-D$,D 

965 FOR I=1 TO 500: NEXT: 0=2: G 
OSUB 1500: FOR 1I=1 TO 500: NEXT 
970 RETURN 

1000 REM DISPLAY 

1005 CLS 

1010 PRINT'79,"T U TOR 
TEIMA TIC O 

1015 PRINTQI43,"= = === 


1020 PRINT6210,"EXERCICIO DE ";E 
9 
1025 PRINT6299," & QUESTAO N* "; 


1 


“4 


1030 PRINTO331,"QUAL RESULTADO D 
B sS 

1035 AR=(LEN(STRS(XO))- 
1040 B&=(LEN(STRS(YO))- 
1045 PRINTE5S43-A%,XO 
1050 PRINTO603,AS 

1055 PRINTO607-B$%,YO 
1060 
1065 


1) 
1) 


T 


3224 


500: NEXT 


0 


FINAL 


SODA 


RESULT 


O melhor para o 


PRINT " 
PRINT 
PRINT"VOCE ACERTOU A “";I%;" 
POSTA(S);" 

PRINT "ENTRE DEZ QUESTOES A 


ALUNO 


PRINT 
PRINT: GOSUB 1400 
INPUT " QUER MAIS EXERCICIO 
S/N)" :QS 
IF QS="S" THEN GOTO 10 
FOR 1I=1 TO 500: 
CLS 
PRINTG5S32,"ATE A PROXIMA. T 
no 
1300 END 
1400 FOR 
1410 OUT 
1420 OUT 
1430 NEXT X 
1440 RETURN 
1500 REM SUBROTINA ROSTO 
1510 GlIS=CHRS( 131): G2S=CHRS( 143 
): G3S=CHR$( 179): G4S=CHR$( 191) 
1520 CLS 
1530 MI=RND(6)*10-8: 
M=M1+(256*M2) 
1540 PRINTOM,G45;6G25;G4$;G45;G45 
:628;G4S; 
1550 PRINTOM+63,G45;G45;G45;G45$; 
G1S:G45$;G45;G45;G4S; 
1560 PRINTOM+128,G4$;G35;G35;635 
:6G3$;G3$;G4S; 
1570 PRINTOM+192,G15;G2$;G4$;G2 
:629:625;G1$3; 
1580 0O1=INT(M/64)*64: X=(M-01)*2 
+2: 02=INT((M+129)/64)*3: Y=02+0 
1590 RESET (X,Y): RESET(X+1,Y): 
RESET(X+8,Y): RESET(X+9,Y) 
1600 RETURN 


M2=RND(4)-1 


Profissional de Hoje... 


É o melhor para os 


Profissionais de Amanhã! 


HPA0C sq à 


Se você é exigente com a capacidade, durabilidade e con- 
fiabilidade de sua calculadora, opte pela qualidade e tecno- 
logia HEWLETT PACKARD. Projetadas especificamente 


N A y para atender às mais diversas áreas protfis- 
: De sionais. Comprove, ainda hoje, nos nossos 
Revendedores Autorizados. 


Científica 
Programável 
"A 


Programável Avançada 
HP-11C c! Funções Especiais 


Cientifica 
Programável Avançada 


Científica 


HP-41 sistema 


Alfanumérico 


Os nossos produtos têm de Cálculo 


Assistência Técnica Exclusiva HP. 


Consulte-nos pelos Telefones: 


(011) 421.3567 - SP; (021) 266.3744 - RJ. 


HEWLETT-PACKARD DO BRASIL IND. E COM. LTDA. 
Alameda Rio Negro, 750 - Rodovia Castelo Branco, Km 23,5 
Barueri - São Paulo - CEP 06400 - Fone: (011) 421-1311 


HP-12C Financeira 


Programável Avançada 





Uz 


HEWLETT 
PACKARD 








Adaptado para a lógica Sinclair, Animals é um exemplo do quanto 


os micros podem contribuir para o aprendizado do Inglês 








Aprenda Inglês 


onhecido como 

brinde para quem 

comprã os com- 

putadores Apple, 
o programa Animals que 
aqui trazemos e uma versão 
escrita em BASIC para 
equipamentos Sinclair com 
expansão de 16 Kb de 
memória. Foi adaptado pela 
equipe do Centro de Trei- 
namento e Recursos da 
Cultura Inglesa, como forma 
de utilizar o TK85 recente- 
mente adquirido por uma de 
suas filiais no ensino e práti- 
ca do Inglês com grupos de 
alunos. 


ENSINANDO O 
COMPUTADOR 


No começo, O programa 
conhece apenas dois animais 
e pede para os alunos pen- 
sarem em qualquer um, o 
qual tentará adivinhar. E 
claro que ele comete um 
erro e, então, pede para os 
alunos informarem o nome 
do animal em que pensaram 
e em seguida proporem uma 
pergunta que o distinga da- 
quele em que ele pensou 
O programa vai incorporan- 
do essas informações ao seu 
banco de dados (tanto os 
nomes dos animais quanto 
as perguntas que os diferen- 
ciam dos demais) e isso 
continua até ele tornar-se 
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com Animals 


Eddie Edmundson 





VA 


spo 


PO dead 


tão inteligente que os alunos 
são forçados a dar defini- 
ções cada vez mais precisas. 

Todas as mensagens são 
escritas em Inglês e os alu- 
nos também devem -se co- 
municar com o micro na 
mesma língua. O mais im- 
portante é que, ao invés das 





atividades estarem baseadas 
apenas em princípios de 
certo e errado, foram intro- 
duzidos vários elementos 
que visam a motivar os alu- 
nos a competirem com a 
máquina, descobrindo quan- 
do ela comete um erro. O 
resultado é que eles têm a 


nítida sensação de estar en- 
snando o computador e, 
assim, vão aprendendo e 
praticando da forma mais 
natural possível. 


BIBLIOGRAFIA 


— HIGGINS, John, Com- 
puters and English lan- 
guage teaching (The Bri- 
tish Council, 1982) 

— JOHNS, Tim, Explora- 
tory CAL: an alternative 
use of the computer in 
teaching foreign langua- 
ges (Universidade de Bir- 
mingham. English for 
Overseas Students Unit, 
1982) 

— LUEHRMANN, Ar- 
thur/ W., Should the 
computer teach the stu- 
dent or vice versa? 
(1972. Publicado de no- 
vo em The best of crea- 
tive computing 2. 1977). 
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do Diretor de Estudos da Cul- 
tura Inglesa. 
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Animals 


10 REM "ANIMALS" 

20 REM CONVERTED AND ADAPTED F 
ROM A PROGRAM BY JOHN HIGGINS (AF 
TER A.W. LUEHRMANN) WRITTEN FOR 
A SHARP MZ 90B. THIS PROGRAM IN 
SINCLAIR BASIC BY EDDIE EDMUNDSO 
N, AUGUST 1983. 

PRINT AT 11,10;"ANIMALS" 
FOR F=1 TO 100 
NEXT F 

P=2 

K=-1 

Q$ (127,32) 

A$ (225,15) 

Q$ (64) ="FLY" 

A$(64)="cow" 

A$ (192) ="EAGLE" 
PRINT AT 7,0;"PLEASE GIVE M 

E YOUR NAME." 

80 INPUT N$ 

85 CLS 

90 PRINT CHR$ (146);N$ 

95 LET N=64 

100 LET R=64 
110 PRINT “THINK OF AN ANIMAL A 
ND THE" 
120 PRINT "COMPUTER WILL TRY TO 
GUESS IT." 
130 PRINT TAB 4;"I ONLY KNOW "; 
P;" ANIMALS" 
140 PRINT TAB 1;"PRESS ""R"" WH 
EN YOU ARE READY." 
150 IF INKEY$<>"R" THEN GOTO 15 
0 
160 FOR F=1 TO 4 
161 PRINT AT F,0;" 
162 NEXT F 
165 LET R=R/2 
170 LET K=K+2 
175 PRINT AT K,0;"DOES IT ";Q$( 
N);"?" 
180 INPUT F$ 
190 IF K=5 THEN GOSUB 4000 
200 IF F$="y" OR F$="YES" THEN 
GOTO 800 
210 LET N=N-R 
220 IF N<l OR N>127 OR INT (N)< 
>N THEN GOTO 3000 
221 LET L=LEN Q$(N) 
222 IF Q$(N,1 TO L)=" 
" THEN GOT 
o 225 
223 GOTO 165 
225 LET X$=A$ (N*2) 
230 PRINT "I KNOW. ITS A"; 
240 GOSUB 2000 
245 PRINT A$ (N*2) 
250 PRINT TAB 3;"IS THAT RIGHT? 
Y/N"; 
255 INPUT F$ 
260 IF F$="yY" OR F$="YES" THEN 
GOTO 1000 
265 PRINT 
270 PRINT “PLEASE TELL ME YOUR 
ANIMAL. * 
275 INPUT H$ 
300 IF LEN H$<2 THEN GOTO 275 
310 IF H$(1 TO 2)="A " THEN LET 
H$=H$ (3 TO LEN H$) 
320 IF H$(1 TO 3)="AN " THEN LE 
T H$=H$(4 TO LEN H$) 
330 “PRINT 
340 PRINT " THANK YOU. NOW PLEA 
SE GIVE ME A" 
350 PRINT "QUESTION TO DISTINGU 
ISH A"; 
360 LET x$=H$ 
365 GOSUB 2000 
370 PRINT H$ 
375 PRINT "FROM A"; 
380 LET X$=A$(N*2) 
385 GOSUB 2000 
390 PRINT A$(N*2) 
PRINT TAB 2;"BEGINNING ""DO 


400 PRINT 
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410 INPUT J$ 
415 LET L=LEN J$ 
420 IF L>8 THEN GOSUB 4500 
450 PRINT TAB 3;"FOR A"; 
460 LET X$=H$ 
465 GOSUB 2000 
470 PRINT H$; 
475 PRINT ",WHAT IS" 
480 PRINT TAB 3;"THE ANSWER? Y/ 
N" 
485 PRINT 
490 INPUT Y$ 
500 LET Q$(N)=J$ 
510 IF Y$(1)<>"y" THEN GOTO 600 
520 LET A$S(N*2+R)=H$ 
525 LET A$(N*2-R) =AS$ (N*2) 
530 LET A$(N*2)="" 
535 GOSUB 5000 
540 PRINT "PRESS""G""IF YOU WAN 
T ME TO GUESS AGAIN” 
550 IF INKEY$="" THEN GOTO 550 
555 IF INKEY$="G" THEN GOTO 85 
560 IF INKEY$<>"G" THEN GOTO 54 
0 
580 STOP 
600 LET A$(N*2+R) =A$ (N*2) 
610 LET A$(N*2-R) =H$ 
620 GOTO 530 
800 LET N=N+R 
B10 GOTO 220 
1000 PRINT 
1005 PRINT "WHAT A BRAIN I VE GO 
da HA PRESS a e ma " 
1006 PRINT TAB 2;N$ 
1007 PRINT "IF YOU WANT ME TO GU 
ESS AGAIN." 
1010 IF INKEY$="" THEN GOTO 1010 
1015 IF INKEY$="G" THEN GOTO 85 
1020 PRINT "BYE. I HAVE ENJOYED 
PLAYING THISGAME WITH YOU." 
1050 STOP 
2000 REM TO CHECK A OR AN. 
2010 LET K$=X$ (1) 
2020 IF K$="A" OR K$="E" OR K$=" 
I" OR K$="0" OR K$="U" THEN GOTO 
2050 
2040 PRINT " "; 
2045 RETURN 
2050 PRINT "“N "; 
2060 RETURN 
3000 REM NO MORE ROOM FOR QUESTI 
ONS. 
3010 PRINT 
3020 PRINT "I GET CONFUSED AFTER 
SO MANY QUESTIONS. LETS TRY 
AGAIN. PRESS ""C"" TO CONTI 
NUE." 
3040 IF INKEY$<>"C” THEN GOTO 30 
40 
3050 GOTO 85 
4000 FOR F=1 TO 6 
4010 PRINT AT F,0;" 
4020 NEXT F 
4030 LET K=-1 
4040 RETURN 
4500 IF J$(1 TO 8)="DOES IT " TH 
EN LET J$=J$(9 TO L) 
4510 RETURN 
5000 REM TO CHECK NUMBER OF ANIM 
ALS 
5005 FAST 
5010 LET P=225 
5020 FOR J=1 TO 225 
5030 IF A$(J,1 TO 3)=" " THEN 
LET P=P-1 
5040 NEXT J 
5045 CLS 
5050 SLOW 
5055 PRINT AT 10,5;"THANK YOU." 
5060 PRINT "NOW I KNOW ";P;" DIF 
FERENT ANIMALS" 
5070 PRINT 
5080 RETURN 
6000 SAVE "ANIMALS" 
6010 RUN 
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dBASE 
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DO 64K p/ CP/M; 128K p/ CP/ 
M-86 e MS-DOS; 56K p/ 
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cursor endelecável 
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CP's 200/300/500, impressoras, elébra, elgin, dismac 
Microengenho | e e 
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Enxadrista experiente, Luciano Nilo de An- 
drade já escreveu para os jornais “Correio da 


Manhã”, 
ra a revista “Fatos & Fotos”. Luciano é econo: 
mista, trabalhando no Ministério da Fazenda, 


“Data News” e “Ultima Hora” e pa- 


no Rio de Janeiro. As opiniões e comentários 
de Luciano Nilo de Andrade, bem como as 
últimas novidades do Xadrez jogado por com- 
putadores, estarão sempre presentes em 
MICRO SISTEMAS. 





As mulheres e o xadrez 


ez por outra discute-se o por- 

' , quê de as mulheres não se igua- 
larem aos homens nas perfor- 

mances enxadrísticas mais ele- 

vadas. Para muitos, a causa seria as li- 
mitações que, cultural e socialmente, 
eram impostas às mulheres no passado. 

Outra linha de pensamento é baseada 
na análise psicológica das tendências e 
motivações que estimulam o desenvolvi- 
mento das atividades psicomotoras, con- 
duzindo o ser humano a atingir o máxi- 
mo de suas potencialidades e caracterís- 
ticas biotopológicas próprias, femininas 
ou masculinas. 

Recentemente, entretanto, pesquisa- 
dores da Universidade John Hopkins, 
E. U. A. formularam controvertida 
teoria segundo a qual o desequilíbrio 
hormonal poderia explicar o desenvolvi- 
mento do talento matemático. Partindo 
desta premissa, por extensão, Andy 
Soltis, mestre internacional americano e 
colunista de xadrez do New York Post, 
em virtude de certas analogias entre a 
matemática e o xadrez, levantou a in- 
teressante hipótese de que também have- 
ria uma base bioquímica para a aptidão 
para o jogo de xadrez. A comprovação 
desta hipótese abrirá novas perspectivas 
ao ensino e à pesquisa no campo enxa- 
drístico. 

A partida seguinte mostra o adianta- 
do nível já alcançado pelo enxadrismo 
feminino, onde não faltam audácia e 
técnica. 


Semenowa X Ioseliani 
Socchi 1983, semifinal mundial 


1 — P4R P4BD; 2 — C3BR P3D;3 — 
P4D PxP; 4 — CxP C3BR; 5 — C3BD 
P3TD; 6 — BSCR P3R; 7 — P4B B2R; 
8 — D3B D2B; — 9 — 6-60 CD2D;,10- 
P4CR P4CD; 11 — P3TD TICD; 12 — 
B4T. Uma novidade para a posição. Era 
conhecida a continuação 12 — BxC CxB; 
13 — PSCC2De 14 — PSB, sacrificando 
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um peão para obter forte iniciativa, ou 
simplesmente 14 — B3T. 12 — ... C4B, 
13 — T1C PSC; 14 — PxP TxP; 15 — 
PSC CR2D; 16 — BIR D3C; 17 — 
C5D!? 


Um sacrifício 
típico à la 
“Verimilovic. 
As brancas 
entregam 
uma peça por 
. um perigoso 
ataque 
especulativo. 





17 — ... PxC; 18 — BxT DxB, 19 — 
PxP B2C; 20 — D2R C3€. Segundo 
Najdorf, seria melhor 20 — ..BxP com 

mais luta, a despeito do fato de que as 
brancas manteriam o ataque com T3€ 
seguido de T3R. 21 — P4B RID; 22 — 
T3C TIR; 23 — T3R DST; 24 — TIR 
BxPD (engenhoso contragolpe merece- 


dor de melhor sorte). 25 — TxB D8T+; 
26 — R2B DSTH?). Um erro. Com 26 — 
..BSR+!;27 — TxB DST+;28 — P3SCcom 
mais possibilidades de empate com xe- 
que perpétuo. 27 — P3C D7T+; 28 — 
R3B (início de bem-sucedida incursão 
do monarca branco em território inimi- 
go). 28 — ...CSR+; 29 — R4C P4T+;30 
— RSC D6T; 31 — TxT+ R2B; 32 — 
T7R+ C2D;33 — TxC+ RxT;34 -R6T 
D5C; 35 — CSC B3B; 36 — D3R RIB; 
37 — B3T+ e as pretas abandonaram. 
Uma bonita e aguerrida partida. 


Posição 
final 





PARA PENSAR 


Origem desconhecida 


Kuypers x Wade 
Vlissingen, 1972 





Diagrama A 
— As brancas 
jogam e 
ganham 





Diagrama B 
— As brancas 
jogam e 
iniciam 
combinação 
que leva a 
mate em 
cinco jogadas 
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O UNITRON AP Il é o microcomputador profissional de maior versatilidade. Com memória expansível até 
384 K, capacidade para até 14 unidades de disco, utilização do sistema CP/M, monitor de fósforo verde com 
apresentação de até 160 caracteres por linha, impressoras Elebra ou Elgin e diversos acessórios opcionais, O 
AP || pode ser configurado na medida certa das suas necessidades. Utilizando programas ou processando a 
folha de pagamento, o contas a pagar/receber, o controle de estoques e a contabilidade, o AP Il é a solução 
ideal para os seus problemas ou da sua empresa. 


+ e 
Esta é uma empresa profissional. 

COMPUMICRO é a primeira empresa brasileira a adotar o conceito de “BUSINESS COMPUTER 
CENTER”. /nteiramente dedicada ao uso profissional dos microcomputadores, a COMPUMICRO está ca- 
pacitada a prestar-lhe um ATENDIMENTO pi, desde o levantamento de necessidades, configuração 
de equipamento, fornecimento de “hardware”e “software” e treinamento, até a implantação de SOLUÇÕES. 

A equipe da COMPUMICRO é ele por profissionais de elevada experiência e alta capacitação 
na área de Informática. Atuando desde 1981 na comercialização de microcomputadores, a equipe da 
COMPUMICRO após estruturar e dirigir duas das mais conhecidas lojas da cidade, e de fundar e dirigir a 
primeira revista brasileira de microcomputadores, estruturou-se para levar até você toda a experiência de 
quem já comercializou mais de 250 UNITRON AP II, para os mais diversos ramos de atividades. 


FINANCIAMENTO — ALUGUEL — LEASING 
unitron 


Rua Sete de Setembro 99 — 11º 
INFORMATICA EMPRESARIAL LIDA. PBx 224-7007 


equipamento profissional. 


repro 


Um passeio pelas páginas de memória do Apple, uma parada especial na página 
zero e dois programas-exemplo ligados à área educacional 





O uso da página 





Ri ese increra 


omo todos sabemos, o processador eletrônico utili- 

zado na produção do microcomputador Apple II e 

de todos os seus filhos é o 6502. Trata-se de um dos 

mais veteranos integrados de oito bits, o qual pode 
acessar, usando dois bytes para endereçamento, até 2!º posi- 
ções diferentes de memória. Isto corresponde a exatamente 
65536 endereços diferentes, ou seja, 64 Kbytes. 

As expansões de memória que superam esta marca precisam 
fazer verdadeiras mágicas para poder ser realmente utiliza- 
das. Eu próprio já vi um Apple trabalhando com 256 Kbytes 
de memória, nada mais nada menos do que quatro vezes a ca- 
pacidade de endereçamento de seu processador. 

Na realidade, para que expansões como esta possam ser 
úteis para uso, têm que enganar o processador. Quando ele 
pensa que está escrevendo na posição $0100, ele poderá estar 
escrevendo em qualquer uma das quatro posições existentes na 
memória, todas representadas por este mesmo endereço. A de- 
finição de qual das quatro possibilidades foi escolhida é feita, 
normalmente, através de uma espécie de chaveamento repre- 
sentado em uma ou mais localizações de memória pelo valor 
registrado nos bytes. 


AS PÁGINAS DE MEMÓRIA 


Salvo este tipo de bruxaria, os computadores da linha Apple 
II possuem memória de 64 Kbytes, sendo 48 de RAM e os 16 
restantes de ROM. Desta forma, podemos imaginá-la como um 
livro composto de 256 páginas, sendo que cada uma possui 
256 bytes. A página hexadecimal número $8, por exemplo, 
começa no endereço $ 800 e termina no endereço $8FF. 

Destas 256 páginas de memória, temos três categorias bá- 
sicas. À primeira corresponde à memória RAM (páginas zero 
até 191); da página 192 até 207 temos os endereços corres- 
pondentes às localizações de entrada e saída (I/O0); e, por úl- 
timo, fica a memória ROM, que vai do endereço 208 até 255 
(ver figura 1). 

O fracionamento da memória ROM é bastante simples. O 
programa em linguagem de máquina que interpreta a lingua- 
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gem BASIC Applesoft está carregado entre as páginas 208 e 
247 ($D000 a $F7FF). No espaço restante, isto é, da página 
248 a 255 ($F800 a SFFFF), temos o registro do programa 
monitor, que é o supervisor geral do sistema e certamente o 
mais importante programa do equipamento. Ele é gravado pelo 
fabricante quando da confecção do equipamento e, fisicamen- 
te, localiza-se em um chip de memória ROM, de tamanho me- 
diano, que fica bem próximo ao microprocessador 6502 na 
placa principal do circuito impresso. Este chip é mais conheci- 
do como ROM F8. 

Existem placas de memória adicional que podem ser im- 
plantadas no conector número zero do equipamento, as quais 
podem substituir estas ROM da placa principal. O mercado 
mundial oferece diversas opções para isto. Existem compilado- 
res de inúmeras linguagens: BASIC, Pascal, COBOL, FORTRAN, 
FORTH, LISP etc. Normalmente estas placas opcionais dis- 
põem de uma pequena chave para informar ao sistema quais 
as ROM que devem ser utilizadas. Desta forma, o microcom- 
putador poderá optar pela memória ROM original da placa 
principal ou pela memória contida na placa adicional ligada no 
conector número zero. 


A RAM E SUAS POSSIBILIDADES 


Com relação às páginas de memória RAM, o equipamento 
faz uso das páginas de 32 a 63 ($20 a $3F) para registro da 
chamada página um de alta resolução de gráficos. A página nú- 
mero dois de alta resolução gráfica está situada entre as pági- 
nas de memória 64 e 95 ($40 a $5SF). A página de texto, por 
sua vez, fica localizada entre as páginas 4 e 7 (em hexadecimal 
$4e $7)e a página três (correspondente aos bytes de $300 e 
$3FF), como sabemos, fica quase que inteiramente livre para 
pequenos programas e rotinas em linguagem de máquina. 

A página dois da memória (bytes $ 200 a $2FF) é utilizada 
para registro de linhas introduzidas via teclado. Trata-se do 
buffer do teclado, empregado pela rotina GETLINE do pro- 
grama monitor para registrar, temporariamente, as teclas que 
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Figura | — Esquema da memória 


digitamos para dar um comando à máquina antes da tecla de 
retorno ser acionada. Quando fazemos isto, o computador vai 
até a página dois e tenta entender e executar os comandos que 
acabamos de escrever com o teclado. 

Para exemplificar, trouxe aqui um programa que faz uma 
pequena trapaça. Existe no manual do Apple um pequeno pro- 
grama de demonstração que faz com que todas as letras de A a 
Z sejam impressas em uma linha. O que nosso programa fará é 
carregar o buffer do teclado, artificialmente, com a sequência 
de bytes indicada no manual, chamando em seguida a rotina 
SFF70 (com CALL —144), cuja função é varrer o buffer e 
obedecer às instruções. Experimente executar este pequeno 
programa que, aparentemente, não tem nenhuma função: 


100 AS = "300: A9 C1 20 ED FD'18 69 01 C9 DB 


DO F6 60 300G D8236" 
10 FOR B = 0 TO LEN(AS) - 1 : POKE 512 + B, 
MIDS( AS, B+ 1, 1) ): NEXT 
"BUFFER" DO TECLADO ACABA DE SER CARREGADO 


ARTIFICIALMENTE 


130 POKE 72,0 : CALL - 144 : REM 4 JTERPRETA E 
EXECUTA O CONTEÚDO DO "BUFFER" 
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Codo garrafa é examinado por funcionários especioimente treinados, que se revezom a codo 15 minutos 
Empresas nacionais e | 





tes vêm fabricando Coca-Cola no Brasil há 
mais de 40 anos, Centenas de milhões de vezes esse refrigerante vem sendo servido 


em milhões de lares brasileiros. E ele é sempre o mesmo refrigerante. Como au 


sárica responsáveis, o mais Importante para os fabricantes br Coca 

é o controle de qualidade. cia 
Acompanhe todos as fases do processo de fabricação de Coca 

fando uma das mais de 60 fábricas que operam de norte a sul do Pais 


associação OD dos fabricantes 


D 
agi SDaD brasileiros de Coca-Cola 


Microcomputadores com crédito direto ou leasing 


TK-2000 .. Cr$ 
CP-200 Cr$ 
DGT-1000 Cr$ 
TK-85 . = Cr$ 
CP-500 Ee Cr$ 
COLOR 64 | Cr$ 
APPLE || PLUS Cr$ 1.390.000 


GRATIS! 
1 JOYSTICK, 20 JOGOS E UM CURSO DE BASIC 
ENTREGA RAPIDA EM TODO BRASIL 


Aplicativos: controle de estoque: contabilidade: folha de 
pagamento; contas a receber pagar: mala direta: cadastro 
An e desenvolvimento de software para cada neces- 
sidade. 


x o “ e 
Temos toda linha de periféricos e suprimentos para acom- 
panhar o crescimento de sua empresa. 


VISITE-NOS OU SOLICITE UM REPRESENTANTE 


MICRONEWS COMÉRCIO E SERVIÇOS LTDA. 
R. Assembléia 10 Gr. 3317 - Ed. Centro Cândido Mendes 
Tel.: (021) 252-9420 - CEP 20011/RJ. 


[e 
mo 
q 
v 
pa 
q 
se 
f4e] 
q 
a 
[) 
s— 
És 
3 
o 
a 
o 
tw 
o 
- 
- 





O USO DA PÁGINA ZERO PELO APPLESOFT 


Após certificar-se de nãq ter ocorrido erro na digitação, exe- 
cute-o. Aí está: numa linha, todas as letras de A a Z. Nosso 
programa criou a rotina em Assembler e imediatamente a exe- 
cutou. Se você conhecer o monitor do seu equipamento, reco- 
nhecerá certamente todos os comandos usados no programa e 
suas funções carregadas inicialmente na linha número 100, na 
variável AS. 

A página número um da memória da máquina é usada para 
registrar à pilha (stack) utilizada pelo processador 6502 quan- 
do da execução de programas em linguagem de máquina. São 
256 bytes que não devem ser usados pelo programador, pois 
são, em geral, informações muito importantes para o micro- 
processador. 

O registrador SP (Stack Pointer) do processador aponta o 
exato byte, da página um da memória, que representa o topo 
da pilha que está sendo usada para execução dos programas. 
Esta é uma característica marcante do processador 6502 e que 
o diferencia do processador Z80 das máquinas da linha TRS- 
80. O Stack Pointer do Z80 é composto por um par de regis- 
tradores; são dezesseis bits para que seja registrado o aponta- 
dor para o topo da pilha. Por este motivo. a pilha de informa- 
ções dos micros da linha TRS-80 pode ser muito maior do que 
a dos equipamentos Apple, onde existem apenas oito bits para 
apontar o topo da pilha de dados. 

Mesmo havendo esta série de limitações ao processador 
6502, ele tem alguns recursos interessantes que permitiram a 
criação de uma linha variada de software de qualidade excep- 
cional. Veja, por exemplo, o próprio interpretador de BASIC 
Applesoft que, apesar de escrito em Assembler do 6502, é o 
que apresenta mais recursos entre os interpretadores mais di- 
fundidos comercialmente no mundo para equipamentos de pe- 
queno porte. 


meme 


A PÁGINA ZERO 


SS 


Vamos falar agora sobre a página zero da memória e os en- 
dereços especiais que o interpretador Applesoft utiliza nestes 
bytes, os quais vão da localização zero (S0) até 255 (SFF). 

Na localização 32 temos o valor da coluna inicial que será 
utilizada para escrever no modo de texto. O endereço 33 defi- 
ne o número de letras por linha. O byte 34 define a linha ini- 
cial para uso da página de texto e o 35 contém o número da 
linha final a ser empregada. 

O interpretador registra no byte $ 24 (em decimal 36) a po- 
sição atual horizontal do cursor. No byte S25 (37 em decimal) 
fica registrada a posição vertical atual do cursor. O byte 43 re- 
gistra o número do conector onde o disco magnético foi boota- 
do (carregado) pela última vez, multiplicado pelo número 16. 

O byte 48 ($30 em hexadecimal) armazena a cor para grá- 
ficos de baixa resolução, multiplicado pelo número dezessete. 
O byte 50, por sua vez, registra a forma de apresentação de 
textos: normal, inversa ou piscante. 

Nas localizações 103 e 104 temos o apontador para o ende- 
reço de início de registro de programas em Applesoft. Normal- 
mente apontam para o byte $0800. Nas localizações 105 e 
106 temos o apontador para o final do programa. Os bytes 107 
e 108 contêm um apontador para o início de registro de variá- 
veis do tipo array. Nas localizações 115 e 116 está o valor do 
HIMEM do computador para aquele momento específico. 

Nas localizações 121 e 122 fica o endereço da linha de pro- 
grama que está sendo executada. Nos bytes 123 e 124 temos o 
valor da linha com a instrução DATA que está sendo emprega- 
da para obtenção de dados. Os bytes 125 e 126, por sua vez, 
apontam para o endereço do próximo dado da instrução 
DATA a ser lido pelo programa em execução. 

As localizações 129 e 130 contêm o nome, em ASCII, da úl- 
tima variável que foi utilizada. Em 131 e 132 há um registro 
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do apontador para a localização, na memória, desta última va- 
riável utilizada, 

O byte 214, como já vimos nesta seção, no número 26 de 
MICRO SISTEMAS, corresponde ao endereço que indica que o 
sistema de proteção de listagens AUTO RUN está ou não liga- 
do. O byte 216 é o flag de uso dos comandos ONERR GOTO. 

O byte 222 fomece o código do tipo de erro ocorrido 
quando da execução de uma rotina de tratamento de erros (ve- 
remos melhor este assunto em uma outra oportunidade). Os 
bytes 218 e 219 contém o valor da linha onde ocorreu o erro 
de execução de um programa. 

Os endereços 224 e 225 contém o valor da última abscissa 
usada em um desenho de gráficos de alta resolução. O valor da 
ordenada é registrado em apenas um byte na localização 226. 
Já o byte 228 registra o código da cor que está sendo emprega- 
da, e o byte 230 contém o código da página de aita resolução 
que está sendo alvo dos comandos de manipulação de gráficos 
(este assunto também será visto com maiores detalhes em 
outra oportunidade). Por último, o byte 231 registra a escala 
do desenho para gráficos que utilizem tabelas de forma. A 
rotação fica armazenada na localização 249. 

A velocidade de impressão de caracteres no modo texto, a 
qual pode ser controlada pelo comando SPEED, fica registrada 
na localização 241. O comando PEEK (241) fornece a diferen- 
ça entre 256e a atual velocidade de impressão definida pelo 
comando SPEED. 


RND E KEYIN EM APLICAÇÕES EDUCACIONAIS 





Guardei para o final uma outra localização importante da 
página zero, utilizada pelo interpretador BASIC do Apple. Es- 
tou falando das localizações 78 e 79 (em hexadecimal S4E e 
S4F). Estes dois bytes registram um valor que serve de semen- 
te para a geração de números aleatórios quando do uso da fun- 
ção de randomização do equipamento. Quando usamos a fun- 
ção RND do BASIC, o equipamento se vale do conteúdo des- 
tas localizações para gerar o número aleatório desejado. 

Pouca gente sabe como funciona a geração de números ran- 
dômicos para este tipo de equipamento. Na realidade, existe 


Listagem l | 


PROGRAM MULTIPLICA ; 

VAR RESPOSTA : CHAR ; 

NUMERO : INTEGER ; 

PROCEDURE TABUADA ( NUMERO : 

VAR A : INTEGER ; 

BEGIN 

WRITELN ; WRITELN ; 

WRITELN ('TABUADA DO 

WRITELN ; 

FOR A := O TO 10 DO WRITELN (NUMERO, ! X *, 
A,* = *, NUMERO * A) ; END ; 

BEGIN (* PROGRAMA PRINCIPAMLÇY*) 

REPEAT 

WRITE ("QUE TABUADA VOCE DESEJA VER? ') ; 

READLN (NUMERO) ; 

TABUADA (NUMERO) ; 

WRITE ('MAIS ALGUMA TABUADA (S/N)? ') ; 

READLN (RESPOSTA) ; WRITELN ; 

UNTIL (RESPOSTA = 'N') 

END. (* FINAL DO PROGRAMA PRINCIPAL *) 



















INTEGER ) ; 











* NUMERO) ; 
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| | Listagem 2 | 


IO DIM ME$(4).NO$(4): FOR À = O TO 
4: READ MESCA).NOS(AÃ): NEXT 


20 DATA "EI, PRESTE MAIS ATENCAO 
11" PESSIMO, VOCE E”. UM BURRO 
HI. FRACO. SAGRADA IGNORÂNCIA! 
!. REGULAR. "VOCE NÃO APRENDE 
MESMO. HEIN?",BOM."SE ERRAR 
DE NOVO VAI LEVAR UM MURRO", 
OTIMO 

TEXT : HOME : NORMAL : SPEED= 
230» HTAB 32: PRINT “Xxx* APR 
ENDENDO A TABUADA ===": POKE 
34.3: HOME 

INPUT "OLA, QUAL E” SEU NOME? 

"sN$: HOME : PRINT "VAMOS E 
STUDAR À TABUADA UM POUCO?": 
PRINT 

VTAB 4: HTAB 1: PRINT “SERA” 
QUE VOCE JA” ESTA” PRONTO PA 
RA FA-ZER À PROVA, "N$"? (S7/ 
ND): "js GET R$: IF R$ < >" 
5" AND R$ «< > "Nº" THEN PRINT 
CHR$ (7): GOTO 50 

HOME : IF R$ = "S" THEN 130 

VTAB 6: HTAB 1: PRINT "NAO ES 
TA” AINDA! !": PRINT : PRINT 
“"B0omM, ENTÃO VAMOS ESTUDAR": PRINT 
=: INPUT "QUAL A TABUADA QUE 
VOCÊ QUER VER? ";N: IF N<O 
OR N > 10 THEN 70 

HOME : VTAB 6: HTAB 14: PRINT 
"TABUADA DO "N: HTAB 13: FOR 
À =1 TO 14 + (N=10): PRINT 
“=M72 NEXT : PRINT : PRINT 

FOR À = O TO 10: HTAB 15: PRINT 
Nº" X "A; TAB(C 22)"= "N * AZ FOR 

= O TO 15:70 = PEEK (49200 


uma rotina na ROM chamada KEYIN, localizada a partir do 
endereço SFDIB, que tem por função ficar varrendo o tecla- 
do, esperando que uma tecla seja pressionada. Enquanto espe- 
ra (o processador trabalha muito mais rapidamente que qual- 
quer datilógrafo profissional), o processador fica constante- 
mente mudando o valor dos bytes 78 e 79 através de uma fun- 
ção predefinida pelo fabricante do equipamento. 

Desta forma, mesmo que queira, o usuário não conseguirá 
fazer com que a semente para geração de números randômicos 
possa ser manipulada devido à altíssima velocidade com que 
ela muda. Fica, portanto, assegurada a aleatoriedade das fun- 
ções de geração de números randômicos. 

Usaremos estas funções em programas de aplicação educa- 
cional, coisa simples, para que iniciantes em aritmética básica 
possam aprender a tabuada. Com relação a todos os endereços 
que foram abordados aqui, quero, em uma outra oportunida- 
de, explicá-los com mais detalhes, pois podem ser muito úteis 
a qualquer programador. É lamentável que informações como 
estas não sejam encontradas em nenhum manual do proprie- 
tário e que tenham que ser obtidas através de exaustivas pes- 
quisas aos programas interpretadores da ROM ou de consultas 
diretas aos engenheiros e analistas que criaram o equipamento. 

Temos, na listagem 1, um programa em linguagem Pascal 
cuja função é ensinar a tabuada para crianças. Sua utilização é 
muito simples e creio serem desnecessárias maiores explica- 
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Ji NEXT : NEXT 
VTAB 22: HTAB 1: PRINT N$”, 
TUDO CERTO? (S/N): "5: GET R 
$: IF R$ « > "Ss" AND R$ «4 iz 
“Nº THEN 100 
IF R$ = "S” THEN HOME : GOTO 
SO 
VTAB 22: HTAB 1: PRINT “CLAR 
O QUE ESTA!!!" SPCC 20): FOR 
A = 1 TOiS: PRINT CHR$ (7) 
55 NEXT : HOME : GOTO 50 
HOME, : VTAB 6: HTAB 1: INPUT 
"ATE” QUE TABUADA VOCE JA” 5 
ABE? ";Ni IF N<« O ORNG>aIaO 
THEN 130 
HOME : PRINT “PROVA DE TABUA 
DA PARA "N$: PRINT : PRINT : 
FOR À = 1 TO 20:N1 = INTXG 
(N + 1) * RND (1))J:;N2 = INT 
CCN + 1) * RND (1)): PRINT 


: FOR B = 1 TO 29: PRINT "=" 


sa NEXT : PRINT "QUESTÃO "As 
PRINT “QUANTO E” CNI" X "N2 
"= ";i INPUT R 

IF R< > Ni x N2 THEN PRINT 
MES$CS » RND (1));5: FOR B = 

1 TO 20:D = PEEK (49200): NEXT 
: NEXT : GOTO 170 

PRINT “MUITO BEM “N$"ILI"ZS FOR 
B:= 1 TO 5: PRINT CHR$ <7);3 

e NEXT 2C = C +.1: NEXT 

HOME : VTAB 6: PRINT “RESULT 
ADO": PRINT " PRINT 
2 PRINT : PRINT : PRINT “NOM 
E" TAB( 15)": “N$: PRINT "TA 

BUADA LIMITE: “N 

PRINT "CERTAS" TAB( 15)": “C 

: PRINT "ERRADAS" TABC 15)"4 
"20 - Ci PRINT "NOTA FINAL" 
TABC 15)": "5 * Ci PRINT "R 

ESULTADO" TABC 15)": "NO$C INT 
(C/ 4) — <C = 20)): END 





ções. O programa foi testado em um compilador Apple Pascal 
e funcionou satisfatoriamente. 

Na listagem 2 temos um outro programa que também pode 
ser utilizado para aprendizagem da tabuada, desta vez em BA- 
SIC Applesoft. 

A execução tem duas fases específicas. Na primeira, a crian- 
ça pode solicitar ao equipamento que mostre, no vídeo, qual- 
quer uma das tabuadas para que ela possa estudá-las. Em segui- 
da, na segunda fase, o aluno é convidado a responder a algumas 
questões formuladas aleatoriamente pelo micro e, ao final de 
algumas respostas, é emitido um relatório de desempenho com 
a respectiva nota obtida. (Você poderá notar que o programa 
possui características marcadamente conversacionais com o 
usuário, de forma a tomar sua utilização simples até por uma 
criança). 

Para geração das questões foram utilizadas as funções para 
randomização que aqui foram explicadas. Aí está. Uma aplica- 
ção educacional bastante simples e fácil de ser criada. 


Rudolf Horner Junior cursa Ciência da Computação na Unicamp e é só- 
cio da Potencial Software, firma que produz programas especiais para 
microcomputadores em Campinas, SP. 
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Conheça mais dois tipos de formato de gravação e descubra, com a ajuda deste 
utilitário para a linha TRS-80, a formatação de qualquer fita cassete 








Descubra o formato 
de uma fita cassete 


o número 21 de MICRO SIS- 
TEMAS, tivemos um artigo 
do Sr. Daniel Augusto Mar- 
tins descrevendo o formato 
de gravação em cassete dos programas 
em BASIC e em linguagem de máquina 
(SYSTEM). No entanto, além destes 
dois tipos de formatação, dois outros 
foram padronizados pela Radio Shack e 
Microsoft, a saber: 
e arquivos de dados utilizados pelo 
BASIC; 
e programas em mnemônicos Z80, cria- 
dos pelo programa Editor/Assembler 
(EDTASM). 

Neste artigo, abordaremos estes no- 
vos tipos de formatação, incluindo um 
utilitário para equipamentos da linha 
TRS-80 Modelo I (que também poderá 
ser adaptado para os que seguem o Mo- 
delo Il), cuja função é revelar o modo 
como foi gravada uma fita cassete para 
estes equipamentos. 


ARQUIVOS DE DADOS 
UTILIZADOS PELO BASIC 


Devido ao fato de que o prefixo (255 
bytes 00) e o byte de sincronismo (byte 
AS) devem ser lidos cada vez que o gra- 
vador é acionado, os arquivos de dados 
são armazenados de modo muito pouco 
eficiente. 

Cada vez que um PRINT & —l ou 
INPUT & —1 é executado, um novo pre- 
fixo e byte de sincronismo são gravados 
ou lidos. Portanto, durante a elaboração 
de programas em BASIC que utilizem 
arquivos em fita, procure acumular o 
maior número possível de dados em um 
PRINT & —l, respeitando, é claro, o li- 
mite de 256 bytes. Isto já deverá dimi- 
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nuir bastante o tempo de execução de 
seus programas. 

Existem também outras formas de 
agilizar a gravação, mas você sabia que 
os manuais dos nossos micros estão er- 
rados? Você pode perfeitamente gravar 
um número e lé-lo mais tarde como se 
fosse uma string, ou gravar uma string 
que consista apenas de dígitos e lé-la 
mais tarde como um número. Pois é, ao 
que parece, os fabricantes nacionais fize- 
ram apenas uma tradução do manual do 
TRS-80... e entraram pelo cano. 

Os dados da lista de itens de um 
PRINT & —1 são gravados em sequência, 
separados por vírgulas. Strings são grava- 
das como uma série de caracteres. Nú- 
meros, sejam inteiros, reais de precisão 
simples ou dupla, são gravados como 
uma string de dígitos, tendo um espaço 
em branco atrás e outro na frente (se o 
número for negativo, terá um sinal de 
menos “-—?”. ao invés do espaço em bran- 
co na frente). 

Tenha cuidado na leitura de arquivos 
de dados. Se o número de itens da lista 
do INPUT & —1 não for igual ao da lista 
do PRINTA4-1 correspondente, com 
certeza você cairá numa condição de 
erro. Tome muito cuidado também ao 
gravar uma string, não permitindo que 


prefixo 


à pas - byte de sincronismo 


« dados da lista de itens, 
separados por virqulas 


byte indicativo 
“do fim de arquivo 


Figura 1! — Formato gravado por PRINT & -1 





ela contenha vírgulas, pois obviamente 
haverá problemas na leitura. 





PROGRAMAS 
EM MNEMÔNICOS Z80 





(0) programa Editor/Assembler 
(EDTASM) grava os programas com a 
seguinte formatação: 

— prefixo (255 bytes 00); 

— sincronismo (byte AS); 

— tabeçalho (byte D3) indicando o tipo 
de arquivo; 

— nome do programa (seis bytes) codifi- 
cados em ASCII (se o nome tiver menos 
que seis caracteres, os espaços à direita 


são preenchidos com brancos (byte 20)): 


— O programa em si; 
— O finalizador de arquivo (byte IA). 


| prefixo | 


byte de sincronismo 


indicador do tipo 
de arquivo 


* am do programa 


(6 bytes) 


byte indicador 
do fim de arquivo 


Figura 2 — Formato de um programa 
em mnemônicos Z80 
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Os números correspondentes às li- 
nhas do programa são codificados em 
ASCII, dígito por dígito, num total de 
cinco bytes. Entretanto, o bit 7 (parida- 
de) destes bytes é setado. 

As linhas do programa são codifica- 
das integralmente em ASCII. A tabula- 
ção (tecla > ) é codificada como 09 e o 
fim de linha (tecla ENTER) é indicado 
por 0D. 


O PROGRAMA CASMEM 


Algumas vezes nos defrontamos com 
algumas fitas que não são formatadas de 
acordo com os padrões usuais (por exem- 
plo, as fitas de dados do processador de 
textos Electric Pencil IH ou do jogo Space 
Wars). Algumas fitas necessitam até de 
um programa especial para carregá-las, 
dificultando a pirataria. Que tal tentar 
descobrir como estas fitas são formata- 
das? 





00010 : 
00020 3 


Casmem 


ves CASMEM sas 

Este prosorama le todos os bytes sravados ro cassete 
00030 ; (apos o byte de sincronisas) e os coloca no bufter de ae- 
00040 : soria que coneci er TOS. 

(C9 00050 CLS EQU (CSK 


3042H 
021BH 


00060 SELVEL EQU 


00100 DISP  EQU 
00180 





O programa Casmem foi escrito para 
este tipo de tarefa. Ele carrega tudo o 
que vier após o byte de sincronismo 
num buffer da memória que começa em 
70SQH (28752 em decimal). Para execu- 
tá-lo, coloque a fita desejada no grava- 
dor e aperte a tecla PLAY. Estando no 
nível de comando do DOS, digite CAS- 
MEM<ENTER > 

O programa acionará o motor do gra- 
vador e irá procurar O prefixo e o sincro- 
nismo. Assim que encontrá-los, aparece- 
rão dois asteriscos no vídeo. A partir 
daí, a cada dois bytes lidos, aparecerá 
(com muita velocidade) um caráter qual- 
quer no lugar de um dos asteriscos (este 
caráter é o ASCII do primeiro byte lido). 

Você saberá que o programa foi com- 
pletamente lido quando o caráter ficar 
estabilizado. Aperte então o botão de 








CALL SELVEL 


9212 





0225 QONTO LEBYTE ESU 0233H 
029% 90080 LESINC EQU 0295H 
3C3F 00090 CSD EQU ICFH 
4447 Oito DISP EQ 8457H 
7050 00110 BUFFER EQU 7050H : Inicio do butter 
7000 96120 ORE 7000H 
7000 CDC90!  OOL30 INICIO CALL CLS : Limos à tela 
7003 212570 00140 LD HL, NOME 
7006 CD478M4 001% CALL  DISP s Mostra o nome do orosrasa 
700º FI QQItO D! : Desarsa c relosio :CMD"T') 
TOA AF 00170 XDR k : Seleciona o cassetetl 
TOGR CD!202  NO1B0 CALL  SELCAS : E lisa O seu aotor 
700E CD9602 00190 CALL  LESINC : Le prefixo e sincronisão 
7044 41JFSC 0200 LD DE.CSD 3 Informa pesicao do video 
7014 215070 00210 LD HL, BUFFER 1 eo imcio do butfer 
7017 CD3502 0022 LER CALL  LEBYTE ; Le ua byte 
7014 77 00230 LD (HU), A + eo poe no buffer 
7O1B 12 00230 LD (DE). A : é tambea no video em ASCII 
7010 23 00250 ENC HL : Proxima posicao do buffer 
701D CD3502 00260 CALL  LERYTE : Le outro byte 
7020 77 00270 LD (HU). À : e o poe no buffer 
7012 23 00280 INC HL : Proxima posicao do buéfer 
7022 [31770 00290 JP LER ; Tudo de novo 
00300 : Nome do prosrasa 

7025 00310 NOME DEFM Pax CASMEM sax” 

2h 2R 26 20 45 41 53 40 45 40 20 ZA 

2h 2h 
7033 0D 00320 DEFE  ODH 
703 00330 END INICIO 


00000 total errors 


00060 SELCAS EDU vel2H 
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Figura 3 


; Seleciona a baud rate 


RESET do computador e utilize um 
programa apropriado para analisar o que 
foi carregado no buffer (T-BUG, DEBUG, 
MON 3,4 ou 5, SUPERZAP etc.). 

Casmem foi desenvolvido para micros 
da família TRS-80 Modelo I, mas quem 
tiver um equipamento compatível com 
o Modelo III também poderá utilizá-lo, 
bastando apenas algumas alterações no 
programa: deletar as linhas 60 100 e 
189 e inserir as linhas que estão na figu- 
ra 3. 

O programa então perguntará, antes 
de acionar o motor do gravador, qual a 
taxa de transferência (baud rate) ca fita. 
O CP-SQ00, por exemplo, perguntaria: 
CASS?. Digitando A ou<ENTER>,a ve- 
locidade será de 15Q0Q haud. Digitando 
B, será de 500 baud. 2 


Engenheiro naval, terminando Pós-Gradua- 
ção na COPPE/UF RJ, João Henrique Volpini 
Mattos tem cursos de CP/M, Assembler e 
FORTRAN pela UFRJ, COBOL pela 
NUCEMPRO, conhece SPSS e trabalha há 
quatro anos com o BASIC (não exclusivamen- 
te). Possui um microcomputador D — 8002 
compátiível com o TRS-80 Modelo |, com 
placa de CP/M. Atualmente trabalha em 
Arquitetura Naval no Estaleiro Mauá, utili- 
zando um IBM 4341. 


INSTITUTO DE TECNOLOGIA ORT 
CENTRO DE INFORMÁTICA 


CURSOS 
LINHA IBM (Apoio Marcodata) 


0S/VS1 — VSE — VM/CMS — VSAM 


CICS — DL/1- COBOL: TÉCNICAS E 
OTIMIZAÇÃO 


MICROINFORMÁTICA 
BASIC — ASSEMBLER — 
LOGO — CP/M — VISICALC 
dBASE Il —- WORDSTAR 
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A associação entre a IBM e a 
Intel, fabricante dos processado- 
res 8088, de 16 bits, e 8085 e 
8086, de 8 bits, ainda não cau 
sou maiores problemas aos fabri- 
cantes nacionais de microcom 
putadores. Para Cileneu Nunes, 
Gerente de Produto da Scopus, 
apesar da Intel ter reservado 
75% de sua produção do 8088 
para IBM, e 25% para os demais 
fabricantes, esta quantidade tem 
sido suficiente. Segundo ele, a 
Scopus é o maior comprador da 
Intel entre a América do Sul, 
Central e África, e o bom rela- 
cionamento entre as duas em- 
presas propiciou a formação de 
um estoque grande, tanto do 
processador 8088 como dos LSis 
usados no Nexus. “Existem pro- 
blemas mas não são insuperá- 
veis, e para 84 estamos total- 
mente garantidos”, afirma Cile- 
neu. 

As opiniões variam em rela- 
ção à falta de componentes no 
mercado. O engenheiro Newton 
Lavieri, da Soítec, por exemplo, 
que fabrica o microcomputador 
EGO, também de 16 bits, afirma 
que os componentes estão caros 
e muitas vezes não são encontra- 
dos no mercado. Segundo ele, 
isto se deve muito ao revende 
dor que joga com a demanda su- 
bindo os preços. Fernando Ma- 
luf, engenheiro da Danvic, que 








PC 2001 
em escala 
industrial 


Já está sendo produzido em 
escala industrial o PC 2001, 
microcomputador de 16 bits, 
compatível em hardware e 
software com o IBM-PC e 
fabricado pela Microtec 
Sistemas Indústria e Comércio 
Ltda 

O PC 2001 possui processador 
Intel 8088 de 16 bits com 
velocidade de 5 MHz, 
memória ROM de 8 até 40 Kb 
e memória RAM de 64 Kb a 1 
Mb; cinco conectores de 
expansão de funções; teclado 
destacado de 85 teclas; 
monitores de vídeo em fósforo 
verde ou policromáticos; 
interfaces para até 16 
terminais para multiusuários, 
roda, inclusive, CP/M 86; 
linguagens BASIC, 
FORTRAN, COBOL, 
Assembler e outras, além de 
expansões de memória, 
comunicações etc. 


Falta de componentes 


fabrica o equipamento DV 600, 
com dois processadores — Z BOA 
e 8088 — e em breve lançará no 
mercado a placa com processa- 
dor 8088 para o modelo caçu- 
la, diz que a falta de componen- 
tes é contornável e não chega a 
comprometer a produção. 

A Microtec, fabricante do PC 
2001, 16 bits, tem uma produ- 
ção mensal de 40 equipamentos 
e, devido à pequena quantidade, 
a dificuldade em encontrar com- 
ponentes pode ser contornada. 
“Temos sentido alguma dificul- 
dade nesta parte mas ainda não 
chegou a atrapalhar a produção, 
porque antes de lançar o equipa- 
mento fizemos um estoque”, 
afirma Arthur Cesar Falcão, Di- 
retor Comercial da empresa. “O 
problema será quando aumen- 
tarmos a produção e isso inevi- 
tavelmente irá repercutir no 
custo do equipamento”, com- 
pleta ele. Segundo Falcão, o es- 
toque da Microtec deve durar 
até final de março. 

A questão da falta de com- 
ponentes afeta mais diretamente 
os fabricantes cujos equipamen- 
tos não foram homologados pela 
SEI. Estes não têm direito à co- 
ta de importação pela Cacex e 
acabam tendo que comprar de 
revendedores aqui mesmo, com 
preços sempre sujeitos a altas, 
de acordo com a demanda. 


SUCESU anuncia 





INFORMÁTICA 84 





A SUCESU já anunciou a 
realização do INFORMÁTICA 
84 para os dias 5 a 11 de novem- 
bro próximo, no Riocentro, Rio 
de Janeiro. O evento compreen- 
de o XV1I Congresso Nacional 
de Informática e a IV Feira In- 
ternacional de Informática, é 
promovido pela SUCESU — Na- 
cional e realizado pela SUCESU 
— Rio, sob o patrocínio da Se- 
cretaria Especial de Informática 
e do Ministério das Comunica- 
ções. 

Estima-se que mais de 200 
expositores estarão apresentan- 


PC 2001: micro de 16 bits da Microtec 





do seus produtos e serviços para 
um público previsto acima de 
200 mil visitantes. A FOCO, em- 
presa encarregada da administra- 
ção e vendas da Feira, deu início 
à comercialização de 12 mil me- 
tros quadrados da área reservada 
à indústria de Informática para a 
exposição de seus produtos. 


De acordo com a planta tra- 
çada para o Informática 84, ha- 
verá quatro pavilhões no Rio- 
centro: o central, o de exposi- 
ções, o de congressos e ainda um 
destinado a microempresas, 





O Centro Latino Americano 
de Desenvolvimento de Informá- 
tica, fundação vinculada ao Go- 
verno do Estado de Pernambu- 
co, instituiu em 1983 o prêmio 
Cladi. Esse prêmio tem o objeti- 
vo de estimular a pesquisa e a 
produção científica e tecnológi- 
ca no campo da Informática, na 
região e no país. Podem concor- 
rer teses ou dissertações de mes- 
trado aprovadas em Cursos de 
Centros de Pós-Graduação em 
Informática. Cada Centro pode- 
rá inscrever até três teses ou dis- 
sertações. Os trabalhos concor- 
rentes terão que ter sido aprova- 
dos nos dois anos anteriores à 
realização do prêmio. Ao autor 
do trabalho vencedor caberá um 
diploma & um prêmio em dinhei- 
ro no valor de Cr$ 1 milhão, 
além da publicação do material. 
O prazo para inscrição é até O 
último dia útil de março. O en- 
dereço do CLADI é Rua José 
Gonçalves de Medeiros, 96, Ben- 
fica, Recife, CEP 50.000, PE. 
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MacIntosh, a nova cartada da Apple 


A Apple Computer está 
apostando tudo no seu novo 
produto: o Macintosh, uma má- 
quina rápida, de 32 bits, com as 
facilidades gráficas operadas na 
tela através de um mouse, que 
dirige o cursor. Com essa nova 
cartada a Apple espera recuperar 
o terreno perdido no ano passa- 
do, na área das máquinas de uti- 
lização pessoal, para a IBM, com 


seu bem-sucedido IBM-PC de 16 
bits. 

O Macintosh é o segundo 
passo da Apple Computer a ca- 
minho da anunciada e potente 
geração de micros pessoais de 32 
bits. O primeiro passo foi o Lisa, 
um lançamento mal-sucedido da 
empresa, no ano passado. 

O Macintosh, em sua versão 
básica, inclui um visor branco e 


preto de nove polegadas com de- 
finição de 512 x 342 pontos, 
duas portas seriais (para ligação 
com periféricos), chips de som e 
fala, um teclado e um mouse. 
Para armazenamento de massas 
de dados, há um microdisc-drive 
de 3.5 e capacidade de 400 
Kbytes de cada lado (o equiva- 
lente a 100 páginas de texto em 
espaço dois). 


Nos Estados Unidos, cente- 
nas de empresas já estão desen- 
volvendo programas e periféri- 
cos para a máquina. Um dos 
programas disponíveis é o 1-2-3 
da Lotus, que integra aplicações 
de negócios. Dois dos progra- 
mas, processamento de palavras 
e gráficos, acompanharão o 
equipamento. 





MC da Ômega 


A Ômega está entregando às lojas as primeiras unidades de seus mi- 
crocomputadores da linha MC 100, 200 e 400, lançados na Feira de 
Informática. O MC 100 tem UCP com dois processadores, 6502 e 
Z80; sua configuração básica é composta por teclado alfanumérico e 
numérico reduzido, monitor de vídeo de fósforo verde, uma unidade 


de disquete de 5 1/4” e memória de 64 Kbytes de RAM expansível 
até 310 Kb. Nesta versão, o preço do MC 100 é de 335 ORTN. O MC 
200 também tem dois processadores, sendo um deles de 16 bits (8088); 
sua memória para usuário começa em 72 Kbytes, podendo se expandir 
até 328 Kb, e assim como o MC 100, o 200 também aceita disco win- 
chester de 5 Mbytes, e seu preço na versão básica é de 601 ORTN. O 
terceiro equipamento fabricado pela Omega é o MC 400, um micro 
compatível com Apple, com processador 6502, memória inicial de 64 
Kbytes de RAM expansível até 128 Kb. Sua versão básica é composta 
por UCP, teclado alfanumérico, interface para monitor de vídeo, saída 
para gravador cassete, saída sonora e saída para dois joysticks. Nesta 
configuração, o MC 400 custa 160 ORTN. A produção inicial, segun- 
do a Ômega, é de 25 unidades por mês de cada um dos equipamentos. 


Software para o TK 2000 


Acompanhando o lançamen- 
to do TK 2000 Color da Micro- 
digital, a Multisoft estará colo- 
cando à disposição dos usuários 
deste novo micro sua linha de 
aplicativos comerciais, além de 
jogos de alta resolução gráfica. 

A princípio, dois programas 
em fita cassete, para uso profis- 


Multicard e Multiestoque. O pri- 
meiro permite o cadastramento 
de clientes e o segundo possibili- 
ta um prático controle de esto- 
que. Na linha de jogos de ação, 
Auto-estrada, Multi-Invader, Sa- 
botagem e Pânico também po- 
derão ser adquiridos. Posterior- 
mente, estes programas também 


DSI na área educacional 


A DSI — Distribuidora de 
Sistemas e Informática Ltda. — 
está expandindo suas atividades 
com a criação da DSI Educacio- 
nal, empresa voltada para o ensi- 
no de cursos relacionados à área 
de. Informática, no Rio de Janei- 
ro. 

O objetivo da nova empresa, 
segundo seu coordenador Clau- 
dio Trotta, é dar aos alunos um 
tratamento diferenciado. “A 
principal diferença existente en- 
tre OS Nossos cursos e os outros 
é que, no nosso, os alunos po- 


dem ter quantas aulas comple- 
mentares desejarem sem pagar 
mais nada por isso.” 


Os equipamentos usados nos 
cursos serão da Sid, Prológica e 
Microdigital e os melhores alu- 
nos terão estágio garantido na 
própria DSI Distribuidora. As 
inscrições para o curso de BASIC 
já estão abertas e os interessados 
poderão obter informações pelo 
tel.: 284-3490 ou na Rua Mariz 
e Barros, 711, Tijuca, Rio de Ja- 
neiro. 


Analistas da ADP dão 
suporte de marketing 


A ADP Systems criou um Departamento de Suporte de Mar- 
keting constituído de analistas que têm como atividade principal 


estudar e levantar as necessidades reais de cada segmento do mer- 
cado e de cada cliente em particular. 

Um exemplo disso é o serviço denominado Solução Global, 
específico para as empresas que têm um micro. Rotinas mais ela- 
boradas, como Folha de Pagamento, Contas a Pagar, Contabilida- 
de etc. são feitas integralmente pelo bureau da ADP, enquanto o 
micro efetua as rotinas superdinâmicas, como faturamento, esto- 


que e relatórios financeiros. 


sional, serão comercializados: serão oferecidos em disquete. 





STRINGS 


* A Microcraft, fabricante de placas da linha Apple, está lançando 
um miniteclado para ligar a equipamentos compatíveis com Apple 
para utilização de Visicalc. Este teclado tem 24 teclas numéricas e de 
funções, + Reconhecido como o melhor micro brasileiro de sua linha 
por um diário paulista, o TK 85 da Microdigital foi apontado por es- 
pecialistas da área como o grande sucesso do mercado de 83. + A Soft 
Consultoria em Processamento de Dados Ltda. está desenvolvendo o 
bDRM — Banco de Dados Relacional para Microcomputadores. O sis- 
tema é compatível com o DBASE Il, mas, a partir da experiência de 
técnicos da Soft, apresenta novos comandos com base nas nossas ne- 
cessidades. O bBDRM será comercializado a partir de maio. * À Imarés 
está comercializando a placa de comunicação Síncrona. Essa placa é 
utilizada para ligações entre microcomputadores da linha Apple e 
computadores de grande porte da IBM, com software BSC1 e BSC3. 
O preço do equipamento é de 220 ORTN e ele se encontra à venda 
nas lojas Imarés de São Paulo. * Ainda não havia chegado às lojas espe- 
cializadas do Rio de Janeiro, em fevereiro, os dois novos lançamentos 
da Sysdata, o TColor, compatível com o TRS Color Computer e o 
Sysdata Ill, equipamento compatível com o TRS-80 modelo Ill, para 
aplicações mais profissionais. Segundo os lojistas ainda não há previ- 
são para o recebimento desses equipamentos. * Já estão sendo comer- 
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cializadas as primeiras unidades de disco de 5 1/4" da Novo Tempo 
Ltda. para o micro Color 64, elaborado a partir do TRS-80 Color 
Computer. + A Execplan, São Paulo, colbcou no mercado o software 
MICRO FCS. Esse sistema, que rodava apenas em computadores de 
grande porte, agora está em nova versão para os compatíveis com o PC 
da IBM. O MICRO FCS é um software de planejamento empresarial 
e de apoio à decisão e é um simulador de situações econômico-finan- 
ceiras. A Compucenter já formalizou um contrato para a comerciali- 
zação e treinamento do MICRO FCS. + Já estão em fase de instala- 
ção os 30 micros | 7000 da /tautec vendidos ao Senado Federal. Cada 
Senador passa a dispor, em seu gabinete, de um micro capaz de armaze- 
nar e fornecer todos os dados de que precisar. O equipamento também 
pode ser usado como terminal do computador central do Senado. + O 
novo Diretor-Presidente da PRODAM — Companhia de Processamen- 
to de Dados de São Paulo, Joaquim Carlos Gouvêa, é engenheiro civil 
formado pela Escola Politécnica da Universidade de São Paulo. Tem 
larga experiência em cargos de direção em área de processamento de 
dados em algumas das maiores empresas do país, onde coordenou 
áreas de O&M, análise de sistemas, software, programação e operação 
de computadores. 


ad 
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Apple em kit 


A Microcontrol, empresa que 
até então atuava na área de con- 
troladores de vídeo, está lançan- 
do o Applekit — kit de micro- 
computador, com componentes 
vendidos separadamente para a 
montagem de um equipamento 
compatível com Apple. 


São os seguintes os compo- 
nentes que já estão sendo ven- 
didos pela Microcontrol: Apple- 
kit 65000, placa de circuito im- 
presso (11 ORTN); 65010, con- 
junto de soquetes, conectores, 
resistores e capacitores (15 
ORTN); 65020, conjunto de 
semicondutores, TTL's, LSI e 
memórias (45 ORTN); 65100, 
conjunto de teclado alfanuméri- 
co com 52 teclas e componen- 
tes, circuito impresso (23 
ORTN); 65200, fonte de ali- 
mentação tipo chaveado (17 
ORTN); 65300, caixa de micro- 
computador em poliuretano 
(6,5 ORTN) e Applekit 65400, 
manual de montagem e teste de 
micro (3 ORTN). 


O sistema Applekit possui 
microprocessador 6502, memáó- 
ria RAM de 48 Kbytes, expansí- 
vel até 64 K e 12 Kbytes de 
ROM. Pode-se conectar ao Ap- 


Tesbi na Vila 


Já está funcionando no 
bairro carioca de Vila Isabel a 
nova loja da Tesbi, que ofere- 
ce cursos, manutenção de equi- 
pamentos, software próprio e 
de terceiros, livros e revistas 
especializados e micros da Pro- 
lógica, Microdigital, CDSE, Di- 
gitus e Dismac. 

À inauguração da loja tam- 
bém marca a divisão da Tesbi 
em duas empresas: Tesbi Enge- 
nharia de Telecomunicações 
Ltda., que opera há sete anos 
nas áreas de telefonia e radio- 
transmissão, e a nova Tesbi In- 
formática Ltda., localizada à 
Av. 28 de setembro, 266, loja 
110, CEP. 20.551, Rio de Ja- 
neiro — RJ, tel.: (021) 284- 
6949. 
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plekit um monitor de vídeo ou 
televisão modificada, operando 
em modo texto ou gráfico. O 
sistema pode ser programado 
para emitir sons, tem saída para 
gravador cassete e para disc-dri- 
ves de 5 1/4” e permite conexão 
simultânea para até 8 cartões 
periféricos. Entre os cartões já 
disponíveis, na própria Micro- 
control, estão interface paralela 
para impressora, cartão para au- 
mentar a capacidade do terminal 
de vídeo para 80 colunas x 24 li- 
nhas, cartão expansão de memó- 
ria RAM, de 128 Kbytes, cartão 
de interface para quatro disque- 
tes de 5 1/4”, interface para 
transmissão de dados por linha 
telefônica, buffer com 32 Kby- 
tes, conversor A/D e D/A com 
16 canais de entrada e saídas, 
sintetizador de voz, cartão com 
processador 8088 de 16 bits, 
controlador de disquetes de 8” 
e interface inteligente com saí- 
das paralela e serial e real time 
e clock calendário. 

Maiores informações sobre o 
Applekit e os cartões periféricos 
podem ser obtidas na própria 
Microcontrol, em São Paulo, 
pelos telefones (011) 814-0446 
e 814-1110. 


Em 
Contagem, 


a Bell 
do Brasil 





Troca de informações 
e facilidades de compra 


Inaugurado recentemente em Belo Horizonte, o Micro Clube do 
Brasil tem como objetivo aproximar os atuais e futuros usuários de 
microcomputadores para a troca de idéias, informações, experiências e 
tecnologia. Segundo os dirigentes da entidade, essa aproximação será 
feita através de reuniões, palestras, cursos e uma biblioteca técnica es- 
pecializada. 

O clube abrange todos os tipos de equipamentos nacionais (que es- 
tarão expostos no seu show-room) e, para fomentar o uso dessas má- 
quinas, serão oferecidas aos associados condições especiais para a aqui- 
sição de hardware, software e acessórios, mediante acordos diretos 
com fabricantes ou representantes. O Micro Clube do Brasil fica na 
Rua Paraíba, 1441, lojas 6 e 8, Savassi, Belo Horizonte — MG, CEP. 
30000, tels.: (031) 225-2617/1973. 


CP/M para CP-500 


Um dispositivo que torna o CP-500 compatível com o Sistema 
Operacional CP/M versão 2.2 e amplia o vídeo para 80 colunas por 24 
linhas é a novidade que a PSI — Projetos e Serviços em Informática 
está colocando no mercado. 

Este novo produto, PSI-M, é baseado no controlador 6845 da Mo- 
torola, que passa a efetuar todas as funções de geração e formatação 
de vídeo. Pode ser encontrado nas versões com 16 ou 64 Kbytes de 
RAM, que são somadas aos 48 Kbytes já existentes no CP-500. Apre- 
senta ainda possibilidade de utilização de diversos sistemas operacio- 
nais (CP/M, DOS500, NEWDOS etc.), graças a um firmware próprio, 
contido em EPROM de 4 Kbytes, 

Acompanham o PSI-M dois manuais completos (de instalação e de 
utilização) juntamente com um disquete, contendo um sistema opera- 
cronai compatível com o CP/M versão 2.2 e diversos utilitários, inclu- 
sive algumas rotinas especiais para compatibilizar o CP-500, em ter- 
mos de formatação de disquetes, com outros equipamentos (IBM, 
Apple, Sistema 700, etc.), tornando possível a leitura/gravação de ar- 
quivos nas formatações mais comuns. 


Inaugurada na cidade de Con- 
tagem, Minas Gerais, a Bell do 
Brasil, uma loja de microcompu- 
tadores, conta com um show- 
room para vendas e demonstra- 
ções de micros, como o Naja e 
os da Prológica, além de um la- 
boratório de pesquisa para de- 
senvolvimento de projetos e na- 
cionalização de equipamentos 
eletrônicos. 


A loja está oferecendo tam- 
bém curso de linguagem BASIC, 
com duração de 70 horas, divi- 
dido em três etapas: BASIC-Teó- 
rico, BASIC-Audiovisual, BASIC- 
Prático. O curso é noturno e são 
utilizados os computadores Naja 
e os da Prológica. Maiores infor- 
mações na Av, João A. da Fon- 
seca Silva, 1131. Tel.:(031) 351- 
3236. 


Conservação de disquete 


Para os usuários de disque- 
tes, Paulo Neves, técnico da Da- 
ta Ribbon, dá os seguintes con- 
selhos: mantê-los sempre dentro 
do envelope e seguir as instru- 


A Ramo Sistemas Digitais de São Paulo está comercializando 
os seguintes programas: Aplicações no Mercado Financeiro, que 
controla créditos e débitos de clientes, a valorização e controle 
de vencimentos de aplicações e papéis; esse programa, roda no 
|-7000 da Itautec, Sistemas 700 e 600 da Prológica. Acurso é um 
sistema conversacional para controle de notas, matérias e alunos; 
esse programa roda no CP-500, Jr Sysdata, DGT-100 e Naja. Cli- 
entes é um programa que compõe cadastros, possibilita a edição 
de fichas, e elimina a necessidade de manuais complicados; roda 
no 1-7000 da Itautec, Sistemas 600 e 700 da Prológica, CP-500, 
Naja e Jr Sysdata. Custos Industriais é um sistema conversacional 
para a elaboração dos custos industriais; roda no |-7000 da Itau- 
tec e Sistemas 600 e 700 da Prológica. Estoque é um sistema 
conversacional que gerencia financeiramente e fisicamente esto- 


Sistemas da Ramo 


ções que vém no mesmo. Esse 
envelope, com o disquete, deve 
ser conservado em lugar fresco e 
sem pó, pois funciona como um 


disco comum; o pó pode causar 
alterações. Para a limpeza da ca- 
beça do drive o único produto 


existente é o gás treon. 





ques, e acompanha a valorização dos produtos; roda no 1-7000 
da Itautec, Sistemas 600 e 700 da Prológica, CP-500, DGT-100, 
Naja e Jr Sysdata. Explosão de materiais controla pedidos, faz 
cálculos, programação de material e mão-de-obra necessária para 
fabricação; o sistema roda no |-7000 da Itautec, nos Sistemas 
600 e 700 da Prológica, CP-500, DGT-100, Naja e Sysdata. Cust- 
Cons — Orçamento e Cronograma e Custo de Obras, o sistema 
acompanha o decurso de uma obra desde o projeto até a fase fi- 
nal; roda no |-7000 da Itautec e nos sistemas 600 e 700 da Pro- 
lógica. Pedidos permite o controle de pedidos, orientando o 
usuário quanto a prazos de entrega e quantidade; o sistema roda 
no 1-7000 da Itautec, Sistemas 600 e 700 da Prológica, CP-500, 
Digitus, Naja e Sysdata. O endereço da Ramo é Rua Dep. Lacer- 


da Franco, 120, conj. 52, tel.: (011) 211-3119, São Paulo. 
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Os Kits de Micro Chegaram! 


APPLEKTIT - Kit de microcomputador tipo Apple? 


[o 
microcontrol 
Sistemas de Controles 
Tels.: (011) 814-0446 e 814-1110 
São Paulo - Brasil. 


Componentes para montagem 
de um microcomputador 
APPLEKIT completo. 


“e... 
byó VA 4, ennanas 
sz na. 


a TATO 
E dE SBHBEBR 


AL LTC TTER o 
MENSOADUA LAS TOL SALTA 
PEGRUCAAGANCANLLALAAS 


APPLEKIT 65400 





“APPLEKIT 65000 | Placa de circuito impresso. | APPLEKIT 65010) Conjunto de soquetes, conectores, resistores e ca- 
pacitores. | APPLEKIT 65020) Conjunto de semicondutores, TTL's, LSI e memórias (As memórias EPROM são forneci- 
das com gravação). | APPLEKIT 65100| Conjunto de teclado alfanumérico com 52 teclas e componentes, circuito im- 
presso. [APPLEKIT 65200! Fonte de alimentação tipo chaveado. [ APPLEKIT 65300) Caixa de microcomputador em 
poliuretano. | APPLEKIT 65400) Manual de montagem e teste de micro. 


APPLEKIT é 100% compatível com os cartões periféricos da MICROCRAFT. 


* Apple é marca registrada de Apple Inc. 





Que tal praticar certos conceitos de Física? Você pode começar por este 
programa, que simula na linha Sinclair o lançamento oblíquo de projéteis 








Estude Física 
com o micro 


Jorge Santana de Oliveira 





dificuldade encontrada pela maior parte dos alunos 

do 29 grau em assimilar conceitos básicos de Física 

tem muito a ver com a quase total ausência de aulas 

práticas, indiscutivelmente um complemento essen- 
cial à exposição teórica quando se tem em vista uma perfeita 
compreensão do fenômeno físico. 

Neste particular, o microcomputador se transforma em uma 
alternativa didática relevante, considerando a possibilidade 
que este oferece de simular movimentos, alguns dos quais de 
difícil demonstração mesmo quando se dispõe de laboratório 
de ensino. 

Movimentos como a Queda Livre e o Lançamento Obliíquo 
de Projéteis são visualizados, quando muito, através de fotogra- 
fias estroboscópicas, recurso que apresenta como inconveniên- 
cia a sua estaticidade, ou seja, o movimento é apresentado 
pronto, ao passo que o microcomputador proporciona a repro- 
dução do movimento semelhante à sua ocorrência real. 

O programa que ora apresentamos roda nos equipamentos 
da linha Sinclair e simula o Lançamento Oblíquo de Projé- 
teis, permitindo a visualização de características básicas deste 
movimento, algumas das quais chegam a contradizer o senso 
comum do estudante, criando um impasse na sua aceitação. 


DESCRIÇÃO DO MOVIMENTO 


O Lançamento Oblíquo de Projéteis consiste no movimento 
de um corpo lançado com uma velocidade inicial v que forma 
um ângulo O (teta) com a horizontal. 

Admitindo que o movimento ocorra no vácuo e nas proxi- 
midades do solo, observa-se que ele é o resultado da composi- 
ção de dois outros movimentos em ocorrência simultânea: um 
movimento retilíneo e uniforme e um lançamento vertical, 
regidos pelas equações horárias: 

e movimento retilíneo e uniforme: x=(v. cosB) .t 
e lançamento vertical: y=(v. senB) .t — 0.5 gt? 
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Figura 1 


Figura 2 
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Figura 3 





Figura 4 


Por sua vez, a equação da trajetória é dada por: y =(tan 
O).x— (g/(2. v? .cos? O )) .x?, correspondente a uma pa- 
rábola. 

A distância horizontal máxima atingida pelo projétil é deno- 
minada alcance, indicada por A, cujo valor é dado pela ex- 
pressão: A=(v2?. sen 20)/g. 

Não é difícil demonstrar matematicamente as seguintes 
características: 


[ — O alcance aumenta com o aumento do ângulo de lan- 


çamento no intervalo de 09 a 45º. Em 45º o alcance é máxi- 
mo, e a partir daí decresce até atingir o valor mínimo em 909 
(A=0). 

[ — A altura máxima aumenta com o aumento do ângulo de 
lançamento. 

[HI — Para ângulos complementares (aqueles cuja soma vale 
90º) o alcance é o mesmo. 


UTILIZAÇÃO DO PROGRAMA 





O programa foi formulado para sobrepor dois lançamentos. 
A velocidade de lançamento teve seu valor fixado em 10 m/s, 
de forma que o único parâmetro de entrada é o ângulo de lan- 
çamento (em graus), pedido sob a forma ANG. 1 =? e depois 
ANG. 2 =?, tendo em vista que a cada rodada serão simulados 
dois movimentos (figura 1). 

Com a utilização do programa, as características 1, Il e II 
podem ser facilmente visualizadas. Por exemplo: 

| — Fazendo ANG. 1= 30º e ANG. 2=45º,e depois ANG. 
1|=45º e ANG. 2= 60º, as características 1 e II são claramente 
observadas (figuras 2 e 3). 

2 — Fazendo ANG. 1= 409 e ANG. 2=50º, a característica 
[II fica perfeitamente visualizada (figura 4). 

Uma restrição deve ser observada: devido às limitações da 
tela e à baixa resolução dos equipamentos da linha Sinclair, 
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Lançamento oblíquo 





REM "LANCAMENTO OBLIQUO" 
REM "AUTOR: JORGE S. OLIVEI 


DIM Y(30) 
DIM T(2) 
FOR I=0 TO 31 
PRINT AT 21,1; "kt!" 
NEXT I 
PLOT 10,1 
FOR J=1 TO 2 
PRINT AT J,0;"ANG.";J;"= 2" 
INPUT T(J) 
PRINT AT J,7sT(J) 
PRINT AT 2,20;"AGUARDE" 
FOR L=1 TO 30 
NEXT L 
FAST 
LET TETA=T(J)*PI/180 
LET A=10*SIN (2*TETA) 
LET N=INT (2.2*A+0.0001) 
LET INCX=A/N 
LET X=0 
FOR I=l TON 
115 LET X=X+INCX 
120 LET Y(I)=X*TAN (TETA)-0.05* 
X**2/(COS (TETA)) **2 
125 NEXT I 
130 PRINT AT 2,20;" 
135 SLOW 
140 FOR L=1 TO 30 
145 NEXT L 
150 FOR I=1 TON 
155 PLOT 2*1+10,11.2*vY(I)+1 
160 NEXT I 
165 IF J=1 THEN NEXT J 
170 STOP 
175 SAVE "LANCAMENTO" 
180 RUN 


o programa foi elaborado para ser utilizado com uma boa reso- 
lução gráfica para ângulos de lançamento entre 30º e 609. 
Abaixo de 30º, a resolução toma-se ruim e acima de 609 a al- 
tura máxima extrapola os limites da tela. Lembramos, contu- 
do, que esta restrição é imprescindível se desejarmos a obten- 
ção de trajetórias semelhantes às reais, além do que ela não 
compromete os objetivos a que visa o programa. 

Na listagem, na linha 95, o número 2.2 funciona como uma 
escala horizontal, compatibilizando a abscissa da tela com o al- 
cance fornecido pela fórmula. Da mesma forma age o número 
11.2 na linha 155, sendo que com relação às ordenadas. 


a 
e 


Jorge Santana de Oliveira é estudante do último ano de Engenharia Ci- 
vil na Universidade Federal de Sergipe, onde trabalha como técnico de 
Laboratório de Física, e professor de Física do Colégio de Ciência Pura 
e Aplicada — CCPA, em Aracaju. 
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Seu programa não funcionou? Não consegue achar o erro? Não se desespere... 
Com calma (e algumas técnicas), tudo se resolve 








Na trilha dos erros 
de programação 





Roberto Quito de Sant'Anna 





m dos momentos mais críticos da arte de programar é 
aquele em que o programador, após algumas horas de 
bolação , fluxogramas e digitação, cheio de expectativa 
digita RUN e ENTER. A partir daí, dependendo de 
vários fatores, entre os quais sorte e experiência, o resultado 
pode variar desde um suspiro de alívio (se o programa 
executou corretamente) até o que pode ser o início de uma 
verdadeira via crucis, na qual muitas horas serão consumidas 
e muitos cabelos arrancados até que o programa venha a 
funcionar — se é que funcionará algum dia... 

Este artigo, fruto de muita vivência e leitura, tem por 
objetivo fornecer subsídios a iniciantes e iniciados para que, 
de forma sistemática, possam mais rapidamente tornar seus 
programas operacionais. 

À meu ver, a recomendação fundamental — e que aliás 
nada tem a ver com programação — é a seguinte: jamais gaste 
mais de vinte ou trinta minutos tentando descobrir um erro. 
Aqueles que, como eu, só começam a produzir a plena carga 
depois das onze da noite, arriscam-se a passar toda uma noite 
em claro sem chegar a qualquer conclusão, pois, após um 
certo número de tentativas, é comum ficarmos cegos e 
passarmos repetidamente por cima do erro sem vê-lo. Em vez 
de insistir, finja desistir, ocupe-se com outra coisa e, mais 
cedo ou mais tarde, a luz virá ou, pelo menos, você descobrirá 
uma nova maneira de atacar o problema. 

Habitue-se a mostrar o seu problema a uma outra pessoa, 
mesmo leiga no assunto: a calma dos ignorantes (no bom 
sentido, é claro) sempre funciona e é comum ouvir-se uma 
pergunta tipo — “Por que o ozinho do GQSUB está com um 
tracinho no meio ?”... Se tal pessoa também entende do 
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assunto, melhor ainda — duas cabeças sempre pensam (ou 
erram...) melhor que uma. 

Se você está digitando a partir de uma revista, cuidado 
com os erros de impressão. Leia sempre as erratas, mesmo 
dos artigos que hoje não lhe interessam, e faça todas as 
alterações necessárias na edição original. Se a revista é 
recente e seus conhecimentos não forem suficientes para 
achar o gato, escreva ou telefone à redação — os editores 
têm como ponto de honra prestar toda a assistência aos seus 
leitores. Por outro lado, se você conseguir pegar algum 
bichano, garanta a sua boa ação do dia, comunicando o fato 
imediatamente à redação. 

Analise atentamente as mensagens de erro, observando 
também as duas ou três linhas que antecedem aquela em que o 
erro foi acusado. Se a linha lhe parecer absolutamente normal, 
experimente digitá-la novamente — você pode, sem querer, 
ter digitado +Y e iniciado uma nova linha, que foi 
interpretada como continuação da anterior. 

'Especialíssima atenção às linhas que tenham sido editadas. 
Digamos que você empregou n€ para substituir caracteres em 
uma linha e, devido a um engano, teve que usar + 
(retrocesso) em vez de substituir o caráter recém-digitado. 

O que você fez foi introduzir na linha o código de retrocesso 
que, obviamente, será um corpo estranho, ocasionando, no 
mínimo, um erro de sintaxe. 

Se o seu equipamento é compatível com o TRS-80, 
habitue-se a usar nomes de variáveis com apenas dois 
caracteres, o primeiro uma letra. Embora não haja restrição 
à quantidade de caracteres do nome de uma variável, o 
interpretador somente considera os dois primeiros, o que leva 


MICRO SISTEMAS, março /84 


frequentemente a erros (aparentemente) absurdos, 
principalmente o de divisão por zero. Há pouco tempo, um 
programa que tinha as variáveis LQ1 (longitude de origem), 
L92 (longitude de destino) e LQDIF (= L$2 — L$1) quase me 
fez baixar ao hospital... 





PREVINA ANTES DE REMEDIAR 





Os piores problemas são, sem dúvida, os erros de lógica: eles 
não ocasionam mensagem de erro. Neste caso, uma das 
soluções é apelar para as funções TRON e TROFF 
(Trace ON/OFF). A função TRON faz com que o número de 
cada linha executada seja mostrado na tela entre os símbolos 

<o>. 

Antes de apelar para TRON, é importante 
procurar isolar ao máximo 
a provável região do erro, usando-a no trecho estritamente 
necessário, sob pena, especialmente em programas com 
múltiplos desvios e laços FOR-NEXT encaixados, de receber 
um emaranhado de números absolutamente indecifráveis. 
Costumo substituir TRON e TROFF por diversos STOP 
colocados em pontos estratégicos, em regiões suspeitas do 
programa; feita a parada (BREAK na...), posso checar os 
valores de todas as variáveis por meio de PRINT no modo 
direto e, se tudo estiver de acordo até ali, prosseguir na 
execução digitando CONT e ENTER. Esta técnica, muito 
eficaz por permitir o acompanhamento passo a passo do 
programa, pode vir a tornar-se tediosa quando usada no - 
interior de laços FOR-NEXT ; neste caso, prefiro substituir os 
STOP por uma linha temporária do tipo 
PRINT I,A,B,C:GOSUB 10000 (onde l é sempre a variável de 
controle do laço e A, B e € representam as variáveis que quero 
acompanhar) e, ao final do programa, colocar esta sub-rotina: 


10000 PRINT ! APERTE QUALQUER TE 
CLA PARA CONTINUAR" 


10001 IF INKEYS = "" GOTO 10001 
ELSE RETURN 


Use e abuse das sub-rotinas sempre que determinado grupo 
de instruções for usado mais de uma vez. Se você subdividir 
seus programas em módulos pequenos, verá que é muito mais 
fácil circunscrever e eliminar erros, considerando cada módulo 
como um pequeno programa que pode ser executado por meio 
de RUN n. 

Se você quiser eliminar temporariamente alguma linha, em 
vez de apagá-la e digitá-la novamente, use o comando EDIT 
e o subcomando I para inserir um REM ou * (SHIFT 7) no 
início da mesma; terminada a experiência, use novamente 
EDIT para voltar à condição inicial. Isto é particularmente útil 
quando não se dispõe de uma listagem do programa, de uma 
cópia em disco ou, principalmente, quando se usam micros 
versão cassete. 

Finalmente, vença a tentação de programar em cima da 
perna, direto no micro. Obrigue-se, mesmo que você ainda não 
saiba, a fazer um fluxograma, por mais simples que pareça o 
programa. Logo você verá que o tempo dispendido em fazer 
nem que seja uma garatuja da sua lógica resultará em uma 
diminuição acentuada ou mesmo eliminação dos erros de 
lógica. Na era da comunicação, tenha sempre em mente que 
“uma imagem vale mais que mil palavras”...e boa sorte! 
e 
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CIBERNE é a mais avançada e sofisticada linha de sotfware para microcomputadores, criada 
para livrar você dos inconvenientes de produções amadoras ou de origem duvidosa. Com 
CIBERNE você terá uma diversificada linha de programas novos, lançados periodicamente 
em pacotes econômicos. Com gravação profissional e em embalagem inviolável, CIBERNE 
oferece a você garantia total em qualquer lugar do Brasil. 


PROGRAMAS EM FITA PARA TK-82, 83, 85, CP-200 E COMPATÍVEIS 


Com o exclussvo FLASH SISTEM que permite um carregamento 6 vezes mais rápido 
que o normal, sem qualquer modificação no equipamento 


Sem qualquer acréscimo no preço você encontra em cada fita 5 excitantes jogos para seu lazer e 
entretenimento. Usa joystick ou teclado. 


BICHOS & CIA PATRULHA GALÁCTICA COMBATE AVENTURA & MISTÉRIO 


8 CASCA, A COBRA s NAVE MÃE s NIGHT GUNNER e PIRÂMIDE INCA 

* CRAZY KONG a FUNGOS MUTANTES as ALERTA VERMELHO = SABOTAGEM 

m CENTOPÉIA 8 GALÁTICA ” POLARIS = O AVENTUREIRO 
“ FROGGER s SOS VEGA Ill s DUELO = MAZOGS 

m SUCURI = PERSEGUIDOR = SCRAMBLE = USS ENTERPRISE 


( UTILITÁRIOS ) 





ROT | - Plus ROTA 















* SOG - Uma nova e mais poderosa versão de ROT | 
e seu sensacional Sistema Operacional Gráfico. 


ms MERGE 
PARA BREVE 


e O MERCADOR e ESTRELA NEGRA e ORÇA | (Orçamento doméstico) 
e STARQUEST e CRISTAL MÁGICO e ARQI (Arquivo de Dados) 
e ZARAKS * GUERRILHA CÓSMICA e CASH-FLOW 


EM TODO O BRASIL NAS MELHORES LOJAS DO RAMO. 


Informações, Distribuição e Vendas: 


JVA-MICROCOMPUTADORES LTDA. 


Av. Graça Aranha, 145 siloja 01 - Rio de Janeiro - RJ 
CEP 20.030  Tel.: (021) 262-6968 


= ASSEMBLER 
= DESASSEMBLER 
s COMPILADOR BASIC 




















Nesta segunda e última parte, um jogo egípcio, escrito em BASIC para a linha 
TAS-80, exemplificará o uso das técnicas abordadas no número anterior 








Inteligência Artificial - II 


a primeira parte deste artigo, 

publicada em MICRO SISTE- 

MAS nº 29, analisamos o al- 

goritmo Minimax e a poda 
ALFA-BETA, Desta vez, finalizando, es- 
tudaremos como usar o referido algo- 
ritmo na implementação de jogos. Para 
tal, usaremos o jogo da Mancala, o qual 
será visto mais adiante (isto não implica- 
rá na perda de generalidade, visto que 
todos os programas de jogos têm a mes- 
ma estrutura). 

O leitor provavelmente perguntará: 
“Se a escolha do jogo não afeta os resul- 
tados de nosso estudo, por que não usar 
um que seja mais popular do que a Man- 
cala? Por que não usar xadrez, por 
exemplo?” Há várias razões para não 
usarmos xadrez. Uma delas é que decidi- 
mos escrever nosso programa em BASIC 
interpretado, uma linguagem lenta, obs- 
cura e ineficiente. A lentidão do BASIC 
faria com que nosso programa levasse 
horas para interpretar um lance de xa- 
drez; a ineficiência tomaria impossível 
colocar um programa de xadrez decente 
na memória do microcomputador e, fi- 
nalmente, a obscuridade impediria o lei- 
tor de entender nosso programa. 

E por que escolher o BASIC? Por que 
não usar o RLISP ou o SAIL? Porque 
BASIC tem uma qualidade que compen- 
sa seus graves defeitos: é uma linguagem 
conhecida por um grande número de 
programadores profissionais. 


LINGUAGEM DE MÁQUINA, 
NEM SEMPRE 


“Antes de prosseguir, gostaríamos de 
discutir um assunto de grande interesse 
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Antonio Costa 





para todos os programadores. Trata-se 
da linguagem de máquina. Todo inician- 
te começa aprendendo BASIC e, ao es- 
barrar nas limitações desta linguagem, 


10 REM JOGADOR DE MANCALA 
200 DIM PILHA(S00), TA(13) 


tenta aprender linguagem de máquina. 
Isto é um erro grave... 

Um bom programador nunca usa lin- 
guagem de máquina a não ser para ini- 








210 CLS 

Z20 PRINT “===* DEMONSTRACAO DA PODA ALFA BETA *===" 
230 PRINT "===» USANDO O ANTIGO JOGO DA MANCALA w===" 
240 PRINT 





250 INPUT "QUANTOS LANCES TERA O JOGO".:; LA 

260 INPUT “EM QUE NIVEL O AVALIADOR ESTATICO VAI ATUAR"; MNI 
270 INPUT “VOCE QUER COMECAR(S/N) "R$ 

280 TA(O)=0:TA(1Z)=0 

290 FOR J=1i TO 12: TA())=4:NEXT J 

300 GOSUEB BO0OO 

310 IF R$="Nº THEN 360 











320 INFUT "QUAL E” SEU LANCE"; IM 
330 IF IM>o OR IM<1i THEN PRINT “LANCES DEVEM ESTAR ENTRE 1 E 6" 
:GOTO 320 





340 IM=IM+6:PTS=13:GOSUE 7000 
530 GOSUE 8000 



















560 FOR L=1 TO LA 

370 Q=1:GOSUB 4000 

S80 IF NT=O0 THEN PRINT “ESTOU SEM MOVIMENTOS": GOTO 435 
390 BETA=999: ALFA=-999: NI=0:PP=0 

4090 GOSUÊ 900:PRINT = 

410 PRINT "MEU LANCE E” "SML 

azo IM=ML:FTS=0:GOSUR 7000 

430 GOSUR 8000 

435 0=7: GOSUE 4000 

437 IF NT=O0 THEN PRINT "VOCE ESTA SEM MOVEMENTO": GOTO 470 
440 INPUT "QUAL SEU LANCE"; IM 

450 IM=IM+6:PTS=13:GOSUB 7000 

460 GOSUB 8000 

470 NEXT L 

480 IF TA(O) TA(I3) THEN PRINT "GANHEI" 
490 IF TACO)<TA(IS) THEN PRINT "GANHASTE" 
3500 IF TACO)=TA(CIS) THEM PRINT "EMPATAMOS" 
3410 END 

900 REM MAXIMIZADOR 

930 IF NI=MNI THEN GOSUE 3Z000:RETURN 

940 0=1:GOSUR 4000 
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Um programa para jogar Mancala 


estrutura de nosso programa, escrito 
para a linha TRS-89, é comum a qual- 
À quer programa-jogo. Eis o seus pontos 
principais: : ç 

e Linhas 360 a 7 Saga grs constituem 
um grupo de instruções que devem ser repeti- 
das até terminar o jogo; 

e Linha 370:0 computador chama E grego 
de movimentos, que coloca na variável NT o 
número de movimentos disponíveis. Se NT=Q, 
a máquina passa a iniciativa ao jogador huma- 


no. Q =1 informa ao gerador que desejamos 


os movimentos do computador; 

e Linhas 390 e 400: 0 computador pede ao 

Maximizador que escolha um movimento; 

e Linha 424:a rotina 7000 é chamada para 

fazer o movimento escolhido. IM indica a esta 

rotina que casa deve ser movimentada. TA 

(1--—12) contém o tabuleiro. TA (0) con- 
s capturadas pelo jogador humano. 


tém as 
PTS =) indica que as peças capturadas devem 


ser postas em TA (Q) e, portanto, que o lance 
é do computador; 


e Linha 430:a rotina 8000 imprime o tabu- 


leiro; 


ciar o processo de bootstrap de compi- 
ladores. Programas em linguagem de má- 
quina são de difícil manutenção e não 
confiáveis (no sentido de que podem 
conter erros causadores de comporta- 
mento errático). “Mas”, perguntará o 
leitor, “e se eu quiser escrever progra- 
mas rápidos e eficientes? Não é necessá- 
rio usar linguagem de máquina?” A res- 
posta é não! Use um bom compilador 
com otimizador. 

Mas o que é um compilador com oti- 
mizador? Um compilador é um progra- 
ma que traduz programas escritos em 
linguagem de alto nível (como BASIC, 
Pascal ou LISP) para linguagem de má- 
quina. O programa em linguagem de má- 
quina resultante da ação do compilador 
é chamado código objeto. Geralmente, 
porém, o código objeto não é tão efi- 
ciente quanto um programa escrito dire- 
tamente em linguagem de máquina. Aí 
entra em ação o otimizador. Ele modi- 
fica o código objeto para torná-lo rápido 
e fazé-lo usar a menor quantidade de 
memória possível. 

É necessário ter muito cuidado na 
compra de um compilador. A maioria 
dos compiladores BASIC existentes no 
mercado não são bons. Isto porque a 
sintaxe do BASIC é muito complexa, 
tomando difícil para quem constrói 
compiladores escrever o otimizador. E 
como o código objeto não é otimizado, 
ele ocupa muita memória. A área ocupa- 
da pelo código objeto dos compiladores 
Z-BASIC e ACCELL, por exemplo, 
pode ser até 50% maior do que a ocupa- 
da pelo programa original. 

Apesar de não existirem bons compi- 
ladores BASIC para microcomputadores 
pessoais, existem excelentes compilado- 
res Pascal, RPN, LISP e FORTH. O 
ALCOR PASCAL com gerador de códi- 
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e Linha 433:a rotina 4000 é chamada para 
verificar se o jogador humano tem movimen- 
to. Q=7 indica que a verificação deve ser ini- 
ciada em TA (7), isto é, na primeira casa do 
lado do jogador humano; 


e Linha 449: o lance do jogador humano é 
lido; 
e Linha 454: como as casas do jogador hu- 
mano estão em TA (7--—12) e o valor lido 
em IM está entre 1 e 6, somamos 6 a IM de 
modo a obter a posição em TA ocupada pela 
casa escolhida. PTS =13 indica que as 
capturadas devem ser postas em TA (13). Fi- 
ente, GOSUB 7000 realiza o movimento 
escolhido pelo jogador humano; 
e Linhas 900 a 1070: contêm o Maximiza- 
dor, cujo funcionamento é explicado na pri- 
mp qui deste artigo (MICRO SISTEMAS 
n : 


e Linha 930: 0 Avaliador-estático é invoca- 


“do se estivermos examinando uma folha; 


e Linha 940: o Gerador-de-movimentos é 
invocado. Após a devolução do controle, NT 





go nativo e com otimizador, por exem- 
plo, é muito bom. 


MANCALA 


O jogo da Mancala parece ter-se ori- 
ginado no antigo Egito. Tabuleiros deste 


conterá o número de movimentos gerados e 
LCS(1l -— — NT) estará com os movimentos; - 

e Linha 950: se NT =0,0 Avaliador-estáti- 
co é chamado; 

e Linhas970 a 1050:os lances contidos em 
LCS são examinados: 

e Linhas 2000 a 2180: contém o Minimiza- 
dor; 

e Linhas 3000 a 3020: contêm o Avaliador- 
estático (como a finalidade do artigo não e 
discutir a avaliação estática, fizemos um ava- 
liador bem simples); 


e Linhas 4000 a 4054: Gerador-de-movimen- 
tos — coloca em LCS(I - -—-NT) todos os 
lances disponíveis entre TA(Q) e TA(Q+5); 

e Linhas 7006 a 7150: geram o movimento 
apontado por IM. Se IM estiver entre 1e 6,0 
movimento é do computador. Se IM estiver 
entre 7 e 12, o movimento é do jogador hu- 
mano; 3 

e Linhas 8000 a 8090: imprimem o tabulei- 
ro. 


jogo foram encontrados no templo de 
Kuma (construído por volta do ano 
1400 antes de nossa era). Apesar de tão 
antigo, este jogo ainda é popular na 
África, na Índia e no Ceilão. 

Existem várias modalidades de Man- 
cala, mas discutiremos apenas uma de- 


O IF NT=0 THEN GOSUR 3000:RETURN 
| ALFA=-999: PRINT " NIVEL “FNTS 


o FOR 1I=1 TO NT 


IF ALFA>=BETA THEN I=NT:PRINT" ALFA "5:GOTO 10350 


GOSUÊE 5000 
NI=NI+1 


IM=LCS(I):PTS=0:GOSUB 7000 


GOSUE 2000 
GOSUE 64000 


IF VA>ALFA THEN ALFA=VALML=LCS(T) 


» NEXT 
» VA=ALFA 
7O RETURN 
REM MINIMIZADOR 


2040 IF NI=MNI THEN GOSUE 3000: RETURN 


2050 0=7:6G0OSUB 4000 


2060 IF NT=O0 THEN GOSUB 3000: RETURN 
2070 BETA=999:PRINT “ NIVEL “SNIS 


2080 FOR I=1i TO NT 


2090 IF BETA<=ALFA THEN I=NT:PRINT " BETA "::GOTO 2160 


2100 GOSURB 3000 
2110 NI=NI+1 


2120 IM=LCS(I):PTS=13:GOSUB 7000 
2130 GOSUB 900 
2140 SOSUB 6000 
21350 IF VA<BETA THEN BETA=VA:IML=LCS(I) 


2160 NEXT 1 

2170 VA=BETA 

2180 RETURN 

35000 REM AVALIADOR ESTATICO 
3010 VA=TA(O)-TA(1S) 

3020 RETURN 


4000 REM GERADOR DE MOVIMENTOS 


4010 NT=0 
40920 FOR k=0 TO 0+5 


4030 IF TA(K)<>0 THEN NT=NT+1:LCSC(NT) =K 


4040 NEXT K 

4050 RETURN 

5000 REM PUSH 

SOLO PILHA(PP)=I:PP=PP+1 


SOZ0 PILHA(PP)=NI:PP=PP+1:PILHA(PP) =ALFA: PP=PP+1 
S030 PILHA (PP) =BETA:PP=PP+1:PILHA(PP)=ML:PP=PP+1 


5040 FOR K=0 TO 13 


35050 PILHA(PP)=TA(K) :PP=PP+1 
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Figura 1 — Tabuleiro de Mancala na posição inicial 
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Figura 3 
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Figura 2 — Tabuleiro de Mancala após o jogador A mover a casa 5 
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Figura 4 
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MAIS SUCESSO PARA VOCÊ! 


Comece uma nova fase na sua vida profissional. 
Os CURSOS CEDM levam até você o mais moderno ensino 
técnico programado e desenvolvido no País. 


q 
CURSOS DE APERFEIÇOAMENTO 


Métodos novos e inéditos de ensino garantem um aprendizado ' 

prático muito melhor. Em cada nova lição, apostilas ilustradas 

ensinam tudo sobre Amplificadores, Caixas Acústicas, Equalizadores, 
Toca-discos, Sintonizadores AM/FM, Gravadores e Toca-Fitas, Cápsulas 
e Fonocaptadores, Microfones, Sonorização, Instrumentação de Medidas 
em Áudio, Técnicas de Gravação e também de Reparação em Áudio 


FE, pr 


São mais de 140 apostilas com informações completas e sempre 
atualizadas Tudo sobre os mais revolucionário CHIPS. E você 

recebe, além de uma sólida formação teórica, KITS elaborados 
para o seu desenvolvimento prático. Garanta agora o seu futuro 


las. O tabuleiro tem a forma mostrada 
na figura 1. Inicialmente existem quatro 
pedras em cada casinha. Os jogadores se 
revezam pegando todas as pedras de 
uma das casinhas do seu lado.do tabulei- 
ro, distribuindo-as no sentido anti-horá- 
ro. A figura 2 mostra como fica o tabu- 
leiro se o jogador A escolher a casinha 5. 


Digamos que haja uma sequência de 
casas contendo uma ou duas pedras e 
que a última das que estão sendo distri- 
buídas caia numa das casas dela. Neste 
caso, O jogador que está fazendo o movi- 
mento captura todas as pedras da se- 
quéncia até chegar na casa onde a últi- 
ma das pedras caiu, 


Um exemplo tornará as coisas mais 
claras. Digamos que, na figura 3, o joga- 
dor B móvimente a casa 5. A última pe- 
dra cairá na casa 4 do jogador A. Isto 
significa que B capturará todas as pedras 
das casas 4, 3 e 2. O resultado do lance 
é mostrado na figura 4. 

Vence o jogo quem capturar mais pe- 


CEDM-20 - KIT 

de Ferramentas. 
CEDM-78 - KIT 
Fonte de Alimentação 
Sv/1A. CEDM-35 KIT 
Placa Experimental 
CEDM-74 - KIT 












3060 NEXT K 
35070 FOR K=1 TO NT 


S08o PILHA(PP)=LCS(K):PP=PpP+1 
35090 NEXT K 

5100 PILHA(PP)=NT:PP=PP+1 

3110 RETURN 

6000 REM POP 

6010 FP=PP-1:NT=PILHA(PP) 

6020 FOR K=NT TO 1 STEP -1 

S030 PP=PP-1:LCS(K)=PILHA(PP) 
6040 NEXT K 

6050 FOR k=13 TO O STEP e À 

60&€ PP=PP-1:TA(K)=PILHA(PP) 
6070 NEXT + 


6080 PP=PP-1:ML=PILHA(PP):PP=PP-1: BETA=PILHA(PE) 
6090 PP=PP-1:ALFA=PILHA(PP):PP=PP- IJ:NI=PILHA(PP) 
6100 PP=PP-1: I=PILHA(PP) 

6110 RETURN 


EM MOVIMENTADOR 
UIA=TACIM):TACIM)=O0 

go CT=ImM 

; IF CUIA=O0 THEN 7100 
"040 CT=CT+] 
7050 IF CT>12 THEN CT=CT-12 
7060 TA(CT)I=TA(CT)+1 
ZOO 74 CUTA=CUIA-1 

go GOTO 7030 
7090 REM 
100 IF TACCT)>3 OR TA(LCT)<2 THEN RETURN 
7110 TA(PTS)=TA(CT)+TA(PTS) 
120 TA(CTI=O0 
7130 CT=CT-1 
7140 IF CT<1 THEN CT5s12 

1350. GOTO 7100 
8000 REM IMPRIME TABULEIRO 
8010 PRINT 
8020 PRINT “TABULEIRO: 
8030 PRINT "VOCE: "STAÇI3)S" ci 
8040 FOR K=12 TO 7 STEF -1ºPRINT TACK)S NEXT EK 
60350 PRINT 
8060 PRINT " EU? “"$ TA(O) E” "3 
8070 FOR K=1 TO 6:PRINT TAC(K)F:NEXT É 
8080 FRINT 


8090 RETURN 
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dras após ambos os jogadores terem fei- 
to o número de lances escolhido em co- 
mum acordo antes de começar o jogo. 


OBSERVAÇÃO IMPORTANTE 









A finalidade deste artigo foi desper- 
tar no maior número de pessoas possí- 
vel o interesse pela Inteligência Artifi- 
cial. Assim sendo, usamos a linguagem 
BASIC porque com ela podemos atingir 
um número grande de programadores. 
Se, porém, você se interessou por Inte- 
ligência Artificial, deve estar preparado 
para abandonar o BASIC e começar a 
trabalhar com LISP ou PROLOG. 

Programas simples como os apresen- 
tados nesta e na primeira parte ainda po- 
dem ser escritos em BASIC. Quando, 
porém, você começar a trabalhar com 
problemas complexos, precisará de um 
poder de computação que só LISP e 
PROLOG poderão lhe dar. A 
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de Componentes. 
CEDM-80 
MICROCOMPUTADOR 
Z80 ASSEMBLER. 


e pa 
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CEDM-1 - KIT de Ferramentas. CEDM-2 - KIT Fonte de Alimentação 
+ 15-15/1A. CEDM-3 - KIT Placa Experimental 

CEDM-4 - KIT de Componentes. CEDM-5 - KIT Pré-amplificador 
Estéreo. CEDM-6 - KIT Amplificador Estéreo 40w. 





Você mesmo pode desenvolver um ritmo próprio de estudo. A lin- 
guagem simplificada dos CURSOS CEDM permite aprendizado fácil. E 
para esclarecer qualquer dúvida, o CEDM coloca à sua disposição uma 
equipe de professores sempre muito bem acessorada. Além disso, você 


recebe KITS preparados para os seus exercícios práticos. 

Ágil, moderno e perfeitamente adequado à nossa realidade, os CUR- 
SOS CEDM por correspondência garantem condições ideais para o seu 
aperfeiçoamento profissional. 


GRÁTIS: 


Você também pode ganhar um MICROCOMPUTADOR. 
Telefone (0432) 23-9674 ou coloque hoje 
mesmo no Correio o cupom CEDM. 
Em poucos dias você recebe nossos catálogos de apresentação 


Este CURSO, especialmente programado, oferece os 

fundamentos de Linguagem de Programação que domina o universo 
dos microcomputadores. Dinâmico e abrangente, ensina desde o BASIC 
básico até o BASIC mais avançado, incluíndo noções básicas sobre 
Manipulação de Arquivos, Técnicas de Programação, Sistemas de 
Processamento de Dados, Teleprocessamento, Multiprogramação e 
Técnicas em Linguagem de Máquina, que proporcionam um grande 
conhecimento em toda a área de Processamento de Dados 









Avenida São Paulo, 718 - Fone (0432) 23-9674. 
VR CAIXA POSTAL 1642 - CEP 86100 - Londrina - PR 
CURSO DE APERFEIÇOAMENTO POR CORRESPONDÊNCIA 


Solicito o mais rápido possível informações sem compromisso sobre o 
CURSO de 


KIT CEDM Z80 

BASIC Científico. 

KIT CEDM Z80 

BASIC Simples. 

Gabarito de Fluxograma 
E.4. KIT CEDM SOFTWARE 
Fitas Cassete com Programas. 








Pacotão de hardware 
para os Sinclair 


Por esse pacote você esperava! 
As cartas e os pedidos foram muitos e ar estã o Pacotão de Hardware 
para a linha Sinclair. Entre várias colaborações recebidas, empacotamos 
algumas que acreditamos ser as mais interessantes implementações que você 
poderá introduzir no seu micro Sinclair. Tivemos a preocupação de dar 
subsídios para que proprietários de modelos diferentes pudessem desfrutar 
dessas maravilhosas “dicas de Hardware” que os nossos colaboradores 


estão dividindo com todos os leitores da MICRO SISTEMAS. 
Portanto, mãos à obra porque neste pacotão você verá, por exemplo, 

a diferença em digitar um programa depois de montar o teclado mecânico. 
O repetidor de teclas ajudará você a economizar tempo ao digitar programas 
longos. Duas maneiras de introduzir um video inverso, qual delas você 
escolhe? E... que tal adaptar um joystick ao seu NE? 





ntes de apresentar as colaborações, 
vamos falar um pouco sobre o tecla- 
do dos micros Sinclair. Além desse 


esclarecimento ser importante, muitas das co- 


laborações tratam desse assunto, daí darmos 
algumas explicações sobre o seu formato e 
funcionamento. 

O computador mantém o teclado organiza- 
do numa matriz de 8x5 posições, sendo que 
cada posição corresponde a uma tecla, Pode- 
mos melhor identificar isso através da figura |, 





Figura | - Matriz do teclado 
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onde LO a 17 correspondem às linhas da ma- 
triz ve CO e €4 correspondem às colunas 

O computador reconhece cada tecla pres- 
sionada através de uma rotina do Sistema 
Operacional, Essa rotina faz a leitura linha/co- 
luna até identificar quais os pontos que estão 
em contato. Por exemplo, se pressionarmos a 
tecla R haverá contato entre a linha LI ea 
coluna C3, 

As figuras 2,3 e 4 mostram os layouts dos 
principais micros da linha Sinclair para que 


você possa identificar essas linhas e colunas no 
seu equipamento. Estas figuras o acompanha- 
rão em quase todas as colaborações e através 
delas será possível adaptar todas as implemen- 
tações para O seu equipamento. 

Então, vamos desembrulhar esse pacote? 


Inversor 


de vídeo 


anhe em dobro com este circuito que 

implementa um inversor de vídeo e, 

por tabela, melhora a qualidade da 
imagem. Com ele, é possível obter ótimo grau 
de contraste, aumentar os recursos da progra- 
mação c diminuir a fadiga visual provocada 
pelo fundo branco da imagem. 

Para os que não estão familiarizados com o 
sinal de vídeo de televisores, recomendamos a 
leitura da primeira parte do artigo “TV em 
monitor: como adaptar”, publicado em MI- 
CRO SISTEMAS nº 21. 

Como todos sabem, o sinal de vídeo do 
TK é gerado pelo software. Este sinal contém 
todas as informações da imagem e do sincro- 
nismo, que, enviado ao modulador (figura 5), 
permite a ligação direta à entrada da antena 
do televisor. Para inverter o sinal de vídeo, de- 
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MODULADOR RF 


Figura 3 — Lay-out do TK85 
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EPROM 
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Figura 4 — Lay-out 
do TK82-C 

(Para tornar possível 
a adaptação em 

seu equipamento 

de todas as 
implementações de 
hardware que 
apresentamos, as 
figuras de número 2, 
3e4 serão citadas 
em quase todos os 
artigos que 
compõem essa 
matéria. Através 
desses lay-outs 
ficará mais fácil 
identificar as linhas 
e colunas em seu 
equipamento). 
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Figura 5 
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Figura 6 





INVERTIDO 


os 


ATARI tan ART 


INVER 


. 


s678 


VIDEO FARA THEE-L 


R'e6:2()> 


= 
Da CDEFGHIJKUME 


NDINKEY $P I7 
cdr de de de dede dede dede 


SOR SGN 


E ai 





“nBS 
R an 








TRE 7 
N AC 
PE 


- 


Co 


- 


Sá, 


vVIZOMM 
Mr 


vemos fazêlo antes do modulador e não basta 
simplesmente inverter o sinal de vídeo: deve- 
mos inverter somente as informações da ima- 
gem e manter inalteradas as informações de 
sincronismo (figura 6). 

O inversor de vídeo utiliza o integrado 
CMOS 4001, que, por suas características de 
alta impedância de entrada e baixo consumo, 
pode ser ligado no circuito e utilizar a alimen- 
tação do próprio micro sem provocar qual- 
quer tipo de sobrecarga. Basicamente o circui- 
to separa os sinais de sincronismo do sinal da 
imagem, e este último, invertido e somado no- 
vamente aos sinais de sincronismo, gera o sinal 
de vídeo invertido. Para facilitar a compreen- 
são do funcionamento do inversor, o circuito 
elétrico, na figura 7, apresenta as formas de 
onda em diversos pontos. 

O inversor deve ser montado sobre uma 
placa de circuito impresso; todas as ligações 
devem ser minuciosamente inspecionadas e os 
cuidados com o integrado CMOS devem ser se- 
guidos, para que não ocorram danos ao micro. 
- A ligação do inversor no micro é muito 
simples; o sinal de vídeo original é retirado do 
circuito impresso antes que sofra a atenuação 
do resistor de IMS, o qual está localizado 
próximo ao conector MIC. O sinal de vídeo 
invertido deve ser injetado no modulador (fi- 
gura 8). Para que o nosso micro possua dois 
tipos de vídeo, normal e invertido, devemos 
desfazer a ligação entre o modulador e o cir- 
cuito impresso do micro, ligando uma chave 
seletora, conforme está na figura 7. A alimen- 
tação pode ser retirada de pontos próximos à 
caixa do modulador. 

Depois que tudo estiver montado e funcio- 
nando, será preciso calibrar o trimpot, respon- 
sável pela qualidade da imagem. Esta regula- 

m dependerá também dos controles de bri- 
o e contraste do televisor. Para facilitar esta 
regulagem, sugiro o seguinte programa: 


10 FOR N=1 TO 255 
20 PRINT CHRS N; 
30 NEXT N 
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Figura 9 


A posição da chave seletora não afeta a 

avação nem a reprodução de programas, mas 

é provável que no modo de vídeo invertido as 

faixas que apareciam no vídeo, nestas duas ro- 

tinas, desapareçam, dependendo da regulagem 
de brilho e contraste do televisor. 





ara quem está cansado de usar marte- 
lo e talhadeira para digitar seus pro- 
gramas nos micros de lógica Sinclair 
(aqueles com teclado “sensível ao toque”), 
principalmente o NE-Z8000, eis a solução ou 
o fim dos seus calos! 

O que vamos apresentar é um teclado me- 
cânico adaptado para o NE-Z8000 ou TK82. 
Para entender o seu funcionamento, não deixe 
de recorrer à figura 4, que contém o lay-out 
desses equipamentos. 

Vamos então ao teclado? Na figura 9 te- 
mos a placa de circuito impresso do teclado 
mecânico, vista do lado cobreado. Este dese- 
nho está em escala, porém nada impede que 
você altere suas dimensões. Apenas lembre-se 
de observar a distância entre os pinos das cha- 
ves (interruptores de pressão). 

Nesta mesma figura (9) pode-se notar um 
resistor. Este componente, que tem o valor de 
820 ohms por 1/4w ou 1/2w, só será necessá- 
rio para aqueles que quiserem incluir o RESET 
no seu teclado. Se você achar que não há ne- 
cessidade de um RESET, basta ignorar os pon- 
tos A e B, bem como o resistor e as teclas (RE- 
SET 1 e RESET 2), na hora de fazer a placa. 

Caso você queira incluir as teclas de 
RESET, saiba que o ponto A corresponde ao 
pino 26 da CPU. (Para maiores explicações, 
veja o artigo “RESET: desligando a UCP do 
micro”, publicado em MICRO SISTEMAS nº 
a O ponto B é o pino central do integrado 


As chaves, que são em número de 40 (ou 
42, para incluir o RESET), devem ser adquiri- 
das antes da confecção da placa de circuito 
impresso. Neste ponto, você deverá (caso não 
encontre um interruptor perfeito, isto é, um 
que não possa servir como tecla) criar uma ca- 

a, de modo que os interruptores fiquem seme- 
antes às teclas de uma máquina de escrever. 
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Veja que, ao instalar o novo teclado, o ofi- 
ginal continuará funcionando normalmente. 
Você poderá colocar o novo em uma caixa no- 
va ou sobrepô-lo ao original. 

Caso você tenha condições de adquirir um 
console já pronto, ou seja, teclados IBM, Co- 
bra etc., e quiser adaptálo ao seu micro, é 
muito simples. Em primeiro lugar, você deverá 
desfazer todas as possíveis ligações que exis- 
tam no interior do console. Depois, é só ligar 
as respectivas teclas nos pontos certos na pla- 
ca (que poderá ter seu tamanho reduzido ou 
adaptado ao novo teclado). 





que não é nada fácil com o teclado 

do NE-Z8000), o joystick é muito 
útil. Portanto, preste atenção e veja como 
adaptá-lo no seu micro. 

Na figura 10, temos o plugue de seis pinos 
visto de trás e também os pontos de ligação na 
placa do micro. Agora é só você recorrer a fi- 
gura 4, localizar os pontos e fazer as ligações. 
Esta adaptação requer um pouco de prática, 
para não danificar os diodos e resistores. As li- 
gações devem ser feitas nos próprios terminais 
dos componentes. 

Por fim, é importante ressaltar que a liga- 
ção deste plugue é compatível com qua gas 
joystick comercial (dageules para o TK82-0). 


P ara aqueles que gostam de jogar (o 
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qui está uma ótima oportunidade pa- 
ra você adaptar o video inverso no 
seu micro. Esta implementação foi 


elaborada originalmente no NE-Z8000, mas 
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você verá como utilizá-la em outros micros da 
linha Sinclair. 

Para começar, abra o seu equipamento, re- 
tire a placa do circuito impresso e localize o 
integrado SN74LS165N. A partir daí, com ba- 
se na figura 11 (face inferior da placa do micro), 
qualquer pessoa que saiba realizar (com prá- 
tica) uma boa soldagem pode ter esta opção. 

Primeiro, corte o pequeno arame (fio de- 
sencapado) que há entre os pontos A e B. No- 
te o rompimento de um filete entre os pontos 
A e €. Agora, ligue um fio em cada um dos 
pontos A e B e também no ponto €. Depois li- 
gue as extremidades destes fios na chave CH1 
(de três pólos e duas posições). Se tudo for 
feito corretamente, teremos então em uma 
posição da chave, vídeo normal, e na outra, 
vídeo inverso. 

Para os que desejam utilizar essa imple- 
mentação em outros micros da linha, basta lo- 
calizar o integrado SN74LS165N e saber que 
a ligação dos pontos A, B e € se resumem a: 
ponto € — pino 7 do integrado; ponto B — pi- 
no 9 do integrado; e ponto A — ligação do 
ponto B (fundo preto) ou ponto C (fundo 
branco) com o resto do circuito. 

Aos usuários do TK82-€, aqui vai um lem- 
brete: em caso de dúvida quanto à inversão, 
recorra ao artigo “Inversão de vídeo e cassete 
automático”, publicado em MICRO SISTE- 
MAS nº 25, 


Repetidor 
de teclas 


om esse repetidor de teclas você eco- 

nomizará tempo na digitação de pro- 

gramas longos. É um circuito simples 
e para sua elaboração foi necessário, apenas, 
pesquisar a placa do teclado do CP-200 e co- 
nhecer seu funcionamento. 

Normalmente, quando uma tecla é pressio- 
nada, o circuito reconhece apenas um pulso, 
por mais que ela seja pressionada. Sendo as- 
sim, para se repetir o mesmo caráter n vezes, n 
vezes a tecla deve ser pressionada para a pro- 
dução dos n pulsos. 

Com a utilização do circuito repetidor que 
estamos apresentando, basta deixar a tecla 
pressionada que serão produzidos os pulsos 
necessários e, com isso, os caracteres. Isto tor- 
na a digitação menos cansativa, principalmen- 
te quando se mexe com o cursor, ou quando 
se reserva espaço nas linhas REM para progra- 
mas em Assembler, ou ainda quando se quer 
apagar um determinado número de caracte- 
res. 

Vejamos, então, como isso funciona. 

No conector da placa principal do CP-200, 
assim como do teclado, estão presentes os se- 
guintes sinais (do fundo para a frente do mi- 
cro)011111000000010, Portanto, 
contaremos da mesma forma. Os 14º e 15º si- 
nais são de reset e, dessa forma, não será ne- 
cessário mexer neles. 

É necessário que se acompanhe no lay-out 
do CP-200 (figura 2) a explicação de todo o 
processo. Vemos, então, que os sinais que nos 
interessam são C4, C3, C2, CO e Cl. Os sinais 
restantes são provenientes da placa do tecla- 
do. Bem, o que se fez foi picar periodicamen- 
te esses sinais (C4, C3, C2,C0 eC1), utilizando 
um circuito temporizador e um circuito de 
chaves analógicas. O temporizador é o conhe- 
cido LM 555 e para as chaves analógicas foi 
utilizado o CD 4066, mas também há o equi- 
valente CD 4016. Veja na figura 12 o esquema 
do circuito repetidor. 
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Figura 12 


Ficamos com as opções de usar o micro da 
forma normal ou com a repetição de teclas, o 
que é selecionado com uma chave mecânica 
manual. Na forma nornal, a chave mecânica 
impõe um nível 1 ao controle da chave analó- 
gica e, com isso, é fechado o circuito interno 
do 4066 formando-se uma ponte para a passa- 
gem da corrente e assim se mantém. Já na for- 
ma repetitiva, O circuito temporizador é ativa- 
do e no pino 3 do 555 aparecem os níveis 0 e 
1. Este sinal é aplicado ao controle do 4066 e 
dessa forma é ativada e desativada a ponte do 
4066, permitindo e não permitindo a passa- 
gem da corrente. 


Repete-se o que foi dito para as outras 
quatro chaves. Lembre-se de que cada 4066 
possui quatro chaves e, portanto, são necessá- 
rios dois circuitos integrados já que são cinco 
os sinais a serem controlados. 


Para a instalação do circuito repetidor no 
micro, deve-se respeitar a mesma posição (ori- 
ginal) das ligações entre os conectores; caso 
contrário, uma tecla poderá produzir o caráter 
de outra, isto é, C4, C3, C2, C0 e CI corres- 
ponderão, respectivamente, a C4”, C3*, C2', 
CO" e C1”. É importante frisar que os sinais 
dos pinos C4, C3, C2, CO e Ci do conector 
devem primeiro passar pelo circuito de repeti- 
ção para então seguir à placa do teclado: C4”, 
C3”, C2', CO" e CI”. As outras ligações do co- 
nector devem ser mantidas. 

Com relação ao conector, foi necessária a 


sua troca e quanto à alimentação de 5 V, do cir- 
cuito de repetição, foi tirada do próprio micro. 


A colocação do circuito pode ser feita no 
chassi superior do micro, internamente. A cha- 
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0C3' 
DC2' 
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Oc1: 


PLACA 
PRINCIPAL 


TECLADO 


TRIMPOT 


ve mecânica e o led do monitor devem ser co- 
locados externamente. Sempre que o micro for 
ligado, o led acenderá e se o circuito de repeti- 
ção for acionado, o led piscará. O período de 
repetição pode ser controlado por um trimpot. 


Este trabalho foi desenvolvido no CP-200, 
mas se adapta em outros equipamentos da li- 
nha Sinclair. Para isso, basta recorrer às figu- 
ras 3 e 4, localizar os sinais (C4, C3, C2,C0 e 
C1) e usádos. Os conectores referidos são os 
que ligam a placa principal à placa do teclado. 
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Marcelo Shiroma Lancarotte — Inversor de vf- 
deo — é técnico em mecânica, formado pela 
FATEC em 1982. Atualmente está estudando 
Análise de Sistemas a nível de pós-graduação e 
se dedica a projetos e construção de dispositi- 
vos eletrônicos. 


André Koch Zielasko — Teclado mecânico, 
Adaptando joystick, Vídeo inverso no micro 
— frequentou por dois anos o curso Tecnólo- 
go de Processamento de Dados na Unisinos — 
RS. Atualmente, estuda as linguagens BASIC, 
Assembler, FORTRAN e COBOL e pesquisa o 
uso dos micros de lógica Sinclair nas áreas de 
Astronomia e Telecomunicações. 


Humberto Kazuo Nakashima — Repetidor de 
teclas — tem 19 anos e é autodidata em Ele- 
trônica, principalmente a digital. 
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IDA 
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+ 
Promoção de lançamento: Cr$ 341.000.00 


di , Oferece amplas possibilidades de 
O microcomputador Ringo R-470 é, disparado, o melhor em sua categona. É mais rápido na execução de programas, oferec 
expansão e é o único micro totalmente projetado e desenvolvido no Brasil, aprovado pela SEI - Secretaria Especial de Informática. 


Um verdadeiro herói nacional | | 
Você pode contar com ele para resolver problemas pessoais ou profissionais, ou simplesmente para se divertir, através de vários jogos disponiveis em 


cartuchos ou fitas. aa RETA 
Aliás, cartucho é o que não falta para o Ringo. Ele é compativel com todos os programas do famoso Sinclair e possui equipamentos periféricos 


exclusivos que ampliam muito a sua capacidade. 
Compare o Ringo R-470 com os similares e comprove: nunca apareceu um micro pessoal tão profissional por estas redondezas. 





A venda nas lojas especializadas em micros, 
foto-rideo-som e grandes magazines. 

Não encontrando o Ringo nestes locais, ligue para 
217 8400 (SP) ou (011) B00.8441 e B00.8442 (Outras 
localidades do Brasil). DDD gratuito 


RINGO -4)7/00 


O micro que aceita desafios 
Aitas do Brasil Lida. - Divisão Informática 
Telex (011) 34673 Rita BR 


* Resolução gráfica 64 x 44 pixeis (junadade gráfica), podendo atirgir uma 
matriz de 256 x 192 quando utilizado com cartuchos 

* Cálculos antiméticos, lunções trigonométricas, logaritmicas e lógicas 

* Cartuchos “Instant Sol” (programas aplicativos em ROM - exclusivol 

* Velocidade de gravação em fita cassete 2.400 BPS 

EXPANSÕES: 

« Gravador de EPROM para gravar, editar e copiar programas em cartucho 

e Interface para impressora ou máquina de escrever elétrica 

* Sintetizador de sons 

« MODEM (Comunicação telefônica - 1.200 Bauds) 


CARACTERISTICAS TÉCNICAS: 

* Linguagem Basic e códigos de máquina 7.30 

« E KBytes ROM expandivel para 15 K Bytes 

+ 16 KBytes RAM expandivel para 48 K Bytes 

« (ilizável em qualquer TY PAB ou cores 

* Conector para Joystick Jogos! 

+ Teclado tipo QWERTY com 49 teclas e 155 funções - tecias de edição 
(movimentação de cursos e correção) com repetição autemálica 

* Exclusiva tecla de inversão de video 

e Tela com 24 Einhas de 32 colunas para texto 


* Preço sujeto 4 alteração 





TAMIO SHIMIZU 


Programação 
(0BOL 


Curso Básico 


SHIMIZU, T., Programação 
COBOL — Curso Básico, Editora 
Atlas. 


BB Este livro foi escrito com o 
ovjetivo de difundir a linguagem 
COBOL em termos compreensí- 
veis mesmo para os que nunca ti- 
veram contato com essa lingua- 
gem de programação comercial. 
Destina-se também a programa- 
dores já experientes que tenham 
necessidade de realizar consultas 
esclarecedoras sobre as formas 
mais gerais de cada comando ou 
instrução COBOL. Ao longo do 
texto há farto material ilustrati- 
vo, exemplos, fluxogramas e fi- 
guras, com a finalidade de facili- 
tar a assimilação da matéria. Tam- 
bém apresenta exercícios, projeta- 
dos para que o leitor possa en- 
contrar as soluções e formular os 
seus próprios programas. 


ANDREW, J., Programando seu 
Computador, EB Informática. 


BB Este livro tem por objetivo au- 
xiliar o usuário de microcompu- 
tadores, ou mesmo os que não te- 
nham um equipamento mas quei- 
ram saber quais aplicações e recur- 
sos ele possui. 

Nesta obra, todos os progra- 
mas foram subdivididos em cinco 
etapas, para melhor compreensão 
por parte do usuário: 

e Configuração mínima — de- 
monstra ao leitor quais as exigên- 
cias ou capacidade mínima que o 
equipamento deve ter para que o 
programa seja executado; 

e Equipamentos — mostra quais 
equipamentos são compatíveis 
com o programa; 

e Descrição — mostra ao usuário 
as utilidades do programa e suas 
melhores aplicações; 

e Execução — a maneira correta 
de executar (rodar) o programa; 

e Rotinas — subdivide o progra- 
ma em rotinas, onde poderão ser 
melhor visualizados os grupos de 
comandos necessários e a lógica 
do programa. 
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LEDERMAN, C., Introdução à 
Linguagem BASIC para 
Microcomputadores, Cartgraf 
— Editora. 


EB Escrito de uma forma clara e 
prática, é um livro autodidático 
no conteúdo e na forma. Sua lei- 
tura e compreensão prescindem 
mesmo da posse de um microcom- 
putador. Contém exercícios simu- 
lados ao fim de cada capítulo, or- 
denados de forma lógica e precisa, 
bem de acordo com o que se espe- 
ra de dados processados num 
computador — a rapidez na assi- 
milação das matérias é uma inevi- 
tável consequência, tanto para os 
que já se iniciaram na linguagem 
BASIC em escolas ou institutos 
como para os que jamais viram 
um terminal de vídeo. 

Totalmente ilustrado com saí- 
das de vídeo de um micro, pode- 
se dizer que essa introdução ao 
BASIC não é apenas um livro es- 
crito, mas digitado, tal a preocu- 
pação do autor em tomar simples, 
fácil e autodidático o aprendizado 
da linguagem mais popular do uni- 
verso dos microcomputadores. 
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TUCCI, W.; MOREIRA, J.; 
FALCONER, D., 4 Primeira 
Mordida, Editora Nobel. 


BA Primeira Mordida tem o 
objetivo de fornecer as informa- 
ções necessárias ao aprendizado 
da linguagem BASIC, procurando 
introduzir o computador de for- 
ma didática àqueles que se ini- 
ciam no mundo da Informática, 
com pequeno ou nenhum conhe- 
cimento anterior no campo da 
computação. O livro traz a im- 
plementação da idéia de diagra- 
ma de blocos e seus respectivos 
comandos na listagem das codifi- 
cações BASIC, e todos os progra- 
mas apresentados, como exem- 
plo ou sugestão, vêm acompanha- 
dos de um grupo de perguntas re- 
ferentes a cada situação durante 
a rodagem, permitindo uma rá- 


pida interação livro-usuário-má- 
quina. 

Entre os assuntos abordados, o 
livro apresenta: “Variáveis”: “Dia- 
grama de Blocos”; “Desvios e De- 
cisões”; “Matrizes”; “Sub-roti- 
nas”; “Manipulação de Caracte- 
res” e “Gráficos”. Como apêndi- 
ce, Breve referências, DOS 3.3 e 
Mensagens de erro. 


MIRSHAWKA, V., BASIC sem 
Segredos, Editora Nobel. 





E 8AS/C sem Segredos é o livro 


que dará ao leitor as condições de 
conhecer a linguagem BASIC e 
suas aplicações, apresentando-a 
em três estágios: elementar, inter- 
mediário e avançado, tendo como 
objetivo final ensinar a programar. 
Através de exemplos e ilustrações, 
de uma forma clara e objetiva, o 
autor traz ao leitor os conceitos 
do BASIC e um completo conhe- 
cimento da sintaxe desta lingua- 
gem de programação. 

Dividido em seis capítulos, 
BASIC sem Segredos aborda: “A- 
plicação e um pouco de história 
sobre os computadores"; “A lin- 
quagem BASIC elementar”; “O 
BASIC intermediário” — com des- 
taque para o par READ-DATA, 
para as variáveis alfanuméricas, va- 
riáveis indexadas e funções mate- 
múáticas especiais; “O BASIC avan- 
cado”; “O sofisticado MAXXI da 
linha Apple” e um capítulo abor- 
dando “O uso do microcomputa- 
dor na Educação”, destacando os 
seus benefícios e alguns possíveis 
malefícios. Em suma, o livro é 
importante para todos aqueles 
que querem, ou precisam, utilizar 
com eficácia micros de qualquer 
uma das linhas fabricadas atual- 
mente no Brasil. 


GOTTFRIED, B.S., Programação 
com BASIC, Editora McGraw-Hill. 


BB Esta obra tem por finalidade 
fornecer um curso de programação 
de computadores empregando a 
estrutura padronizada da lingua- 


PROGRAMAÇÃO | 
COM BASIC. 


376 Problemas Resolvidos 
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gem BASIC. Assim sendo, todas 
as características principais da lin- 
guagem serão analisadas. Paralela- 
mente, a obra apresenta o desen- 
volvimento de programas lógicos, 
eficientes e ordenados. Assim, o 
leitor poderá absorver os princí- 
pios da boa prática de programa- 
ção, bem como as regras especifi- 
cas do BASIC. 

À linguagem adotada é delibe- 
radamente elementar , o que per- 
mitirá que o texto seja facilmente 
compreendido por uma imensa 
gama de leitores, desde estudantes 
a profissionais com experiência 
prática. O livro está organizado 
em duas partes. A parte |, “BA- 
SIC Básico”, contém as caracteris- 
ticas principais da linguagem mais 
empregada. Este material, por si 
só, permite o ensino de um curso 
rápido de programação. A Parte 
ll, “BASIC Avançado”, aborda 
características mais profundas, 
tais como sub-rotinas, declarações 
para a manipulação de matrizes e 
de arquivos. A obra é encerrada 
com um capítulo denominado 
“BASIC Ampliado”, em que se dá 
ênfase particular às implantações 
em microcomputadores. 


SETZER, V.;MELO, |, A 
Construção de um Compilador, 
Editora Campus. 


BE Com finalidade didática e in- 
formativa, esta obra tanto poderá 
ser empregada como livro-texto 
para a disciplina de teoria e cons- 
trução de compiladores quanto 
como referência para profissionais 
de processamento de dados. Divi- 
dida em duas partes, trata inicial- 
mente de análise léxica e sintática, 
apresentando o método simples e 


eficiente de análise sintática de- * 


senvolvido por V. W. Setzer. 
Aborda, em seguida, análise de 
contexto, geração de código e de- 
talhes de implementação, sugerin- 
do e orientando, como trabalho 
prático, a execução de um projeto 
de compilador para a linguagem 
Pascal. 
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A CompuShop apresenta com 


exclusividade o Apple que fala português: 
MicroEngenho 2. 





O MicroEngenho 2 tem teclado destacável, 
com todas as letras maiúsculas e 
minúsculas, acentos e sinais gráficos da 
lingua portuguesa que você encontra em 
qualquer máquina de escrever. 

E tudo isso aparece no seu monitor de vídeo. 
Mas as características especiais do 
MicroEngenho 2 não param por aí. 

Ele é o único microcomputador no Brasil 
totalmente compatível com o Apple Il Plus 
eo Apple Ile, e você escolhe por meio de 
um"switch” com qual opção quer 
trabalhar. Além do design semelhante ao 
dos microcomputadores de última geração 
(IBM- PC), o MicroEngenho 2 tem teclado 
numérico reduzido para entrada de dados 
e possibilidade para se “sair” de um 
programa e recomeçar o sistema, sem ter 
que desligar o equipamento. 

Venha até a CompuShop conhecer de 
perto o MicroEngenho 2. 

Nós e ele falamos a sua lingua. 
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Com uShop 
SÃO PAULO: Rua Dr. Mário Ferraz, 37 - Tel.: (011) 815-0099 e Av. Pres. Juscelino Kubitschek, 889 - Tel.: (011) 852-7700 


Telex: (011) 36611 BYTE BR 
LONDRINA: Av. Higienópolis, 465 - Tel.: (0432) 23-7110 


Í i i i horas no local. 
A CompuShop entrega e instala o MicroEngenho 2 em seu escritório e você ainda ganha um treinamento de 4 
Se ça éaida em outra cidade, faça o seu pedido pelo telefone (011) 800.8123. A CompuShop paga a ligação. 





e O SENAC está oferecendo um curso de 
Técnicas Avançadas em BASIC, totalmente 
prático, com aulas às 32s e 59s, com duração 
de duas horas cada. Os alunos contarão com 
uma sala equipada com 20 micros, um por 
aluno, e duas impressoras de 200 CPS. As ma- 
trículas encontram-se abertas na Rua Santa 
Luzia, 735, 13º andar, tel.: (021) 220-8891, 
Rio de Janeiro, RJ. 


“O Instituto Psicodinâmico de Idiomas 
oferece cursos intensivos de BASIC para prin- 
cipiantes e empresas interessadas em treinar 
os seus funcionários. A duração do curso é de 
duas semanas, com carga horária de 11 horas 
por semana. O preço do curso é de Cr$ 50 
mil, sendo que Cr$ 10 mil de inscrição e 
Cr$ 40 mil no início do curso. Maiores infor- 
mações na Rua Martiniano de Carvalho, 200, 
tel.: (011) 284-3912, São Paulo, SP. 


eO Centro Latino-Americano de Desen- 
volvimento da Informática oferece, para o 
més de abril, os cursos de Processamento Dis- 
tribuído e Gerência de Projetos, ambos com 
carga horária de 21 horas, ao preço de 29,4 
ORTN. Inscrições na Rua José Gonçalves de 
Medeiros, 96, Madalena, tel.: (081) 227-2307, 
Recife, PE. 


e A COMPUTRON Engenharia & Infor- 
mática Ltda. oferece regularmente os cursos 
de BASIC, BASIC avançado e COBOL, em 
turmas reduzidas, com material didático gra- 
tuito, aulas práticas individuais, certificado de 
conclusão e diversos horários (dois dias à noi- 
te ou sábados à tarde). O endereço é Av. Bra- 
sil, 3.909, sala 5, tel.: (0332) 21-6042, Gover- 
nador Valadares, MG. 


eA Microchip Computação Comércio 
Ltda. vem promovendo cursos de programa- 
ção em BASIC para principiantes, estudantes 
do 1º e 2º graus, universitários e turmas espe- 
ciais para profissionais liberais, segundo suas 
especializações. Além de aulas práticas e teó- 
ricas em microcomputadores, os participantes 
têm à sua disposição horário livre para uso dos 
equipamentos. Informações na Rua Miguel 
Lemos, 41, sala 606, Copacabana, tel.: (021) 
227-8803, Rio de Janeiro, RJ. 


Rua Visconde Silva, 25 — 
Botafogo — Rio de Janeiro — RJ 
CEP. 22281 — Tels.: (021) 
286-1797, 246-3839 e 266-0339. 


Al. Gabriel Monteiro da Silva, 
1227 — Jardim Paulistano — São 
Paulo — SP — CEP. 01441 — Tel.: 
(011) 853-3800. 


e A ERKLA oferece no mês de março cur- 
so de BASIC Ill. Este curso é destinado a téc- 
nicos e engenheiros, a duração é de 20 horas e 
o preço é de 15 ORTN. Maiores informações 
na Av. Pacaembu, 1261, tel.: (011) 67-8339, 
São Paulo, SP. 


e À Datamicro Informática Ltda. está rece- 
bendo inscrições para os cursos Introdução 
aos Microcomputadores, Linguagem BASIC, 
Microcomputador para Crianças e Microcom- 
putador Aplicado na Engenharia, todos no 
mês de março. Informações na Rua Visconde 
de Pirajá, 547, loja 211, Ipanema, tel.: (021) 
287-5211, Rio de Janeiro, RJ. 


e A 4C — Crianças Criando Com o Compu- 
tador, além dos cursos para crianças, está ofe- 
recendo cursos para adultos. Os cursos são de 
BASIC, com turmas aos sábados das 8:00 às 
13:00h, início dia 17 de março, e às terças e 
quintas-feiras, das 19:30 às 22:00h., início dia 
20 de março. Informações na Av. Rouxinol, 
201, tel.: (011) 61-4595, São Paulo, SP. 


e A CompBel continua promovendo cursos 
de Introdução a Microcomputadores para ado- 
lescentes e estudantes de nível colegial. O cur- 
so é realizado às 22s e 4às ou às 3as e 5ãs, em 
dois horários: 14:00h ou 16:30h. A carga ho- 
rária é de 20 horas, e as aulas práticas são em 
um TK85. A CompBel também oferece cursos 
de BASIC | e Ile Visicalc Plus. Maiores infor- 
mações na Rua Gregório Paes de Almeida, 62, 
Vila Madalena, tel.: (011) 65-9857, São Paulo, 
SP. 


e A Mikro Informática continua oferecen- 
do com sucesso os seguintes cursos, com vá- 
rias opções de horário: Informática para jo- 
vens, Operação e programação de microcom- 
putadores, Linguagem BASIC e BASIC para 
crianças. Informações e inscrições na Av. 
Afonso Pena, 952, sala 627, Centro, tel.: 
(031) 222-3035, Belo Horizonte, MG. 


e A loja Minas Digital oferece regularmen- 
te cursos de programação em microcomputa- 
dores para pessoas jurídicas e clientes. O en- 
dereço é Rua Araguari, 692, tel.: (031) 337- 
7946, Belo Horizonte, MG. 


e A ADP Systems estará oferecendo os se- 
guintes cursos nos meses de março e abril: 
Operação de Sistemas, Programação de Siste- 
mas, Análise de Sistemas, BASIC e Assembler. 
Os cursos são realizados em turmas pela ma- 
nhã, tarde e noite. Maiores informações na 
Av. Paulista, 1439, 3º andar, cj. 31, tel.: 
(011) 285-3283, São Paulo, SP. 








e O SENAC PRODEMP (Programa de De- 
senvolvimento Empresarial) estará promoven- 
do o curso “Projetos de O&M integrados à mi- 
croinformática.” O curso irá de 10 a 17 de 
abril, com carga horária de 18 horas, das 
19:30 às 22:30h. Informações na Rua Dr. Vi- 
la Nova, 228, 2º andar, tel.: (011) 256-5522, 
São Paulo, SP. 


e Metodologia e Técnicas para Aumento 
do Desempenho do Computador, Auditoria 
do CPD e de Sistemas Workshop, Engenharia 
de Programas, Projeto de Redes de Telepro- 
cessamento, Administração de Banco de Da- 
dos e Treinamento Gerencial em Processamen- 
to de Dados são os cursos oferecidos no més 
de abril pelo SCI — Sistemas, Computação e 
Informática. Informações na Rua Jardim Bo- 
tânico, 635, 8º andar, tel.: (021) 294-7438, 
Rio de Janeiro, RJ, e na Av. Paulista, 2001, 
grupo 1020, tel.: (011) 289-0099, São Paulo, 
SP. 


e Utilização do dBASE Il, Utilização do 
WORDSTAR e Formação de Programadores 
são os cursos oferecidos no més de março pela 
ORT Brasil. Informações na Rua Dona Maria- 
na, 213, Botafogo, tel.: (021) 226-3192, Rio 
de Janeiro, RJ. 


eA FUNDEP e a Universidade Federal de 
Minas Gerais estarão oferecendo os seguintes 
cursos para o mês de abril: BASIC nível avan- 
çado, FORTRAN nível avançado, Pascal ní- 
vel avançado, VisiCalc e Programação de Com- 
putadores COBOL. Informações na Av. An- 
tônio Carlos, 6627, Pampulha, tel.: (031) 
441-4980, Belo Horizonte, MG. 


SEMINÁRIOS 
“O Instituto Brasileiro de Administração 
Municipal — IBAM já tem programados para 


abril os seguintes seminários; Automação de 
Escritórios, Organização de Banco de Dados, 
Informática Distribuída, Redes de Telepro- 
cessamento, Como o Usuário Pode Especi- 
ficar Sistemas e Projeto de Sistemas de Pro- 
cessamento Distribuído. Informações no Lar- 
go do IBAM, nº 1, Botafogo, tel.: (021) 266- 
6622, Rio de Janeiro, RJ. 





e Para informar ao leitor sobre os cursos que 
estão sendo oferecidos, a revista recolhe in- 
formações em diversas instituições ou as rece- 
be pelo correio. Portanto, não nos responsabi- 
lizamos por quaisquer alterações posterior- 
mente efetuadas por estas instituições nos 
programas ou preços. 





NÚMEROS ATRASADOS? 


PEÇA HOJE MESMO 


e Vocé pode fazer o seu pedido por carta. 


e Junte a este um cheque cruzado, 
nominal à ATI Editora Ltda., no valor 


correspondente ao seu pedido. 


e E não se esqueça de enviar o seu 


endereço. 
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| O JR da Sysdata é rápido, é versátil, é compacto, 
Contabilidade, controle de contas a pagar, controle de 
contas a receber, folha de pagamento, controle de esto- 


que, controls de clientes, relatório de clientes, mala direta, 
cálculos de tos financeiros,controle de processos 
cas 


, funções matemáticas, funções lógicas em cadeia de 
Rraciors RT gráficos, jogos animados, progra- 


OU! JR PERMITE AINDA: 
O bcesso a grandes sistemas de computação, a comuni- 
cação entre os departamentos de Empresa, efetuar pro- 


gramas específicos para cada Empresa. 
E, como se não bastasse, ele é o Micro-Computador de 
menor preço do mercado. 


Com todas as qualidades que tem, o JR da Sysdata nem 
ser tão econômico. Mas é. 
Afinal, ele é o mais completo Micro-Computador de sua 
geração. 
Inclusive no preço. 
Você pode testar estas e outras qualidades do JR em 
qualquer dos nossos revendedores. 
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Sysdata 


Microcompntado pessoa 





Vnya AV. PACAEMBU, 788 
Sysda CEP 01155 - TEL: 67.5900 


erra tecdo 
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Pergunta — Tenho três dúvidas que 
surgiram com o uso do meu CP-200: 
1) Na MS nº 27, pág. 64, Seção Dicas, 
ao rodar a dica “Teste a ROM”, o resul- 
tado obtido foi 855106 e não 855660, 
como estava escrito. É defeito do meu 
micro ou é erro de impressão ? 

2) Na MS nº 23, pág. 76, a dica “In- 
verta o vídeo” não é aceita pelo 
CP-200, e ocorre erro na hora de in- 
troduzir os comandos através do moni- 
tor Assembler publicado neste mesmo 
número. Por que ocorre erro, se o 
TK82-C e o CP-200 são compatíveis? 
3) Ao tentar carregar o meu micro 
através da função LOAD, ocorreram 
erros como, por exemplo: ao listar, 
aparece todo o programa, mas, ao ro- 
dar, o computador simplesmente igno- 
ra alguns trechos do programa; e ainda 
surgiram linhas inexistentes no progra- 
ma e fora de ordem (linhas 100, 105, 
480 (2) e 110). Esses erros ocorreram 
somente em um programa. Qual é a 
causa destes erros? (Fernando César 
M. Brunner, SP). 


MICRO SISTEMAS - Como você, 
uma série de outros usuários nos escre- 
vem diariamente, com dúvidas seme- 
lhantes. Tentamos, na medida do 
possível, respondê-las, repassando a 
experiência que adquirimos como 
usuários nestes dois anos de existên- 
cia, porém certas questões indepen- 
dem do nosso conhecimento. Infeliz- 
mente, não é praxe da indústria nacio- 
nal manter as revistas informadas so- 
bre modificações em seus equipamen- 
tos, e não raro temos conhecimento 
das particularidades de certos equipa- 
mentos através de leitores e colabora- 
dores que nos escrevem relatando suas 
experiências. 

Como não é possível manter em 
nosso CPD um exemplar de cada ver- 
são (alguns micros nacionais, de uma 
mesma linha, chegam a ter sete ou oito 
disposições internas dos circuitos dife- 
rentes), algumas questões ficam preju- 
dicadas no seu esclarecimento. Em to- 
do caso, é sempre conveniente anali- 
sar o problema detalhadamente. Se os 
defeitos independem do programa, tal- 
vez o micro esteja com problema. Mas 
se o defeito é setorizado, como é o 
caso, pode ser o Sistema Operacional 












modificado. De qualquer forma, um 
diagnóstico não invalida o outro, e 
é necessário que a explicação do que 
ocorre com seu equipamento seja mais 
clara e detalhada para que possamos 
tentar entender o que realmente está 
acontecendo. 


Pergunta — Tenho algumas dúvidas 
com relação a dois programas publica- 
dos em MS nºs 23 e 25, respectivamen- 
te “Aventuras na selva” e “Jornada nas 
estrelas”, No “Aventuras”, minhas dú- 
vidas são: 
1 — Não entendi a linha 126: 126 IF 
Z THEN GOTO Z 
2 — A linha 601 manda desviar para 
a linha 39, mas na listagem não existe 
a linha 39. 
3 — A parte do programa que explica 
a digitação (pág. 52) recomenda usar o 
comando GOTO 7, no caso de parada 
do programa, mas não existe a linha 7. 
E no programa “Jornada nas estre- 
las”, o computador acusa erro 2 ao 
dar entrada nas variáveis utilizadas nas 
linhas 1 até 33. (Wilson F. de Souza 
Corrêa, RS). 


MICRO SISTEMAS — Com relação ao 
programa “Aventuras na Selva”, as 
correções que havia já foram publica- 
das na Mensagem de Erro, mas, mesmo 
assim, estas correções não comprome- 
tiam de forma alguma o funcionamen- 
to do programa. Para facilitar, vamos 
repetir novamente estas erratas: 

e A linha55 correta é:55 IFC < 
LEN U$ THEN GOTO 51. 

e A linha 420, que não saiu im- 
pressa, é: 420 IF NOT CODE B$(2) 
THEN GOTO 56. 

e Ena linha 90, da tabela de dados 
do monitor (pág. 49), o certo 6:90, > 
IEIBIF. 

Com referência às suas dúvidas, a li- 
nha 126 usa um desvio condicional 
comandado por um operador lógico 
(no caso, a variável Z). Isto significa 
que se Z = 0, então não há desvio, mas 
se Z<>0, o programa é desviado para 
a linha apontada por Z. Sobre opera- 
dores lógicos e desvios condicionais, 
leia o artigo “TK82-C: Um micro só 
no tamanho” (MS nº 14, pág. 36) eo 
capítulo do manual referente a desvios 
condicionais e operadores lógicos. 





Envie suas perguntas 
para MICRO SISTEMAS/ 
SEÇÃO MS RESPONDE: 
Rua Visconde de Silva, 25, 
Botafogo, 
Rio de Janeiro-RJ, 
CEP. 22281. 





Com relação às segunda e terceira 
dúvidas, não há erro nenhum: se a exe- 
cução de um programa é dirigida para 
uma linha que não existe, o programa 
executa a próxima linha existente. Isso 
não é erro de programação, apenas pa- 
rece ser. 

No programa “Jornada nas estre- 
las”, trata-se de um erro de digitação. 
Proceda da seguinte forma: quando o 
computador parar com erro 2 (veja no 
manual que tipo de erro é o 2), locali- 
ze a linha em que tal erro ocorreu, e 
verifique qual variável não recebeu 
atribuição (LET). 

As listagens estão corretas e, quan- 
do há falhas, nós imediatamente pu- 
blicamos e respondemos por carta ou 
telefone. Pelo que percebemos de sua 
carta, você está com alguma dificulda- 
de com programas longos. Não desani- 
me e mantenha sempre o manual perto 
de você porque ele pode responder a 
99% de suas dúvidas. E quando nem o 
manual for capaz de ajudá-lo, escreva 
explicando detalhadamente qual o erro 
e nós tentaremos ajudá-lo. 


Pergunta — Gostaria de uma explica- 
ção sobre como utilizar PEEK e POKE 
no TK82-C, pois o que existe no ma- 
nual é muito superficial para quem 
está iniciando na linguagem Assembler. 
(Edna Badin, SP). 


MICRO SISTEMAS — As instruções 
PEEK e POKE são duas instruções 
muito utilizadas na programação dos 
micros e estão associadas à leitura e 
gravação dos bytes na memória. Pode- 
mos imaginar a memória do compu- 
tador como uma grande estante com 
milhares de gavetas. Cada gaveta possui 
um número que corresponderá ao seu 
endereço na estante e pode guardar um 
número qualquer inteiro e positivo 
entre O e255. 

Dessa forma, se na gaveta 19500 for 
arquivado o número 30, poderemos 
dizer que o byte do endereço 19500 
possui o valor 30. A função PEEK lê o 
conteúdo da gaveta. Assim, PRINT 
PEEK 19500 deverá resultar no núme- 
ro 30 na tela do vídeo. A instrução 
POKE arquiva o número na gaveta e, 
dessa forma, POKE 19500, 40 altera o 
valor da gaveta 19500 para 40. 
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Inclusive para quem não 
precisa comprar IO disquetes 


de uma vez. 


Datalife apresenta seu álbum duplo: uma 
embalagem adequada para quem precisa 
de um ou dois disquetes agora e só vai 
precisar de outros daqui a algum tempo. 
Em vez de você ficar comprando disquete 
solto por aí, que passa'de mão em mão, 
com o álbum duplo você tem toda a 
segurança que existe. 


So; 


Ele contém apenas dois disquetes 

e vem lacrado. 

É o que tem dentro, você já conhece: 
Disquetes Datalife com certificação 
critica, com desempenho muito além 
das normas tradicionais, e 100% livres 
de erros. 

Disquetes Datalife - na embalagem 
normal ou no álbum duplo, a garantia 
total de um nome que é líder mundial em 
mídia magnética flexível. 


</eeN 


To 


Foda 


V 


BD! 


Mnpsso o! 


— 


- 


CURTA FNCE ( GRITA MA 


MD 528.01 


MAPS Faca 7 pum KO - + 














Produzido na Zona Franca de Manaus 





Não perca tempo! Com este utilitário para a linha Sinclair você poderá, 
a partir de um REM de 1 byte, construir REM de quantos bytes quiser 








m REM de infinitos bytes 


ma das tarefas mais tediosas 

quando se quer montar um 

programa em linguagem de má- 

quina é montar um REM com 
o número de bytes necessários para de- 
pois inserir os dados hexadecimais. 
Quem já montou programas de mais de 
1 K sabe do que estamos falando. Que 
tal, então, um programa que, a partir de 
um REM de somente 1 byte, o multipli- 
casse, num espaço de tempo impercep- 
tível, em quantos bytes fossem necessá- 
rios? 

O programa descrito a seguir faz exa- 
tamente isto: monta um REM com o 
número de bytes desejado. Esse REM 
deve ser localizado no início do progra- 
ma. Depois daremos as dicas de como 
usá-lo para criar vários REM ou aumen- 
tar mais de uma vez o mesmo. Para 
montar o nosso programa, usaremos o 
monitor Assembler, publicado em MS 
nº 23 de agosto de 83. 


DIGITAÇÃO 





Primeiro, acrescente ao monitor As- 
sembler a listagem 1. Em seguida, digi- 
te a listagem 2. O REM dalinha 1 com- 
porta 36 bytes disponíveis onde vai ser 
inserido o programa em linguagem de 
máquina que vai expandir o seu REM. O 
REM da linha 2 comporta 1 byte dispo- 
nível e é este que nós vamos expandir e 
usar para as rotinas. 

Para concluir, digite a listagem 3, 
usando o modo A do seu monitor As- 
sembler. 


2 bytes 2 bytes 


Número Quantidade 


da linha de byte do 
texto + 1 


Figura 1 
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OPERAÇÃO 


Para começar a desenvolver um pro- 
grama em linguagem de máquina, você 
deverá criar o seu REM de um compri- 
mento igual ao número de bytes do seu 
programa. Para isso, você dará entrada 
no item H do seu monitor, e fomecerá 
o número de bytes necessários ao seu 
programa. Após isso, o monitor automa- 
ticamente criará o seu REM e retornará 
ao monitor. 

Para deixar o seu REM no começo do 
programa, basta deletar a linha 1, to- 


Listagem 1 


1010 PRINT ,,"**** MICRO EDITOR 
ASSEMBLER ****",,,,"JOSE CARLOS 
NISA", "MICRO SISTEMAS/1983",,,+» 
"MODOS DE OPERACAO:",,,"A - INSE 
RE DADOS HEXADECIMAL","B - INSER 
E DADOS DECIMAL","C - EXECUTA RO 
TINA ASSEMBLER","D - RETORNA AO 
BASIC","E - ARQUIVA EM FITA"," 
- INSERE LINHA DE DADOS"," 
IMINA MICRO EDITOR","H 

REM" 


1090 TF US<” 


16515,A-256*B 
16516,B 
USR 16514 


TO 1030 


NEWLINE 








1 REM 11111111111111111111111 
1111111111111 
2 REM 1 


01 00 00 21 AC 40 E5 C5 
CD 9E 09 Cl 2A A9 40 09 
22 A9 40 2A 29 40 09 22 
29 40 El 36 1D 23 OB 79 
BO 20 F8 C9 









aaa a 
o Lad Gud Id bos 
Dom a 


Mania 





fd fd fd ps jus 





mando cuidado para não mais entrar no 
item F do monitor (para evitar qualquer 
problema troque a linha 4500 por GO- 
TO 1030). 


CRIANDO VÁRIOS REM 


Para criar vários REM, será necessário 
mudar alguns valores na rotina em lin- 
guagem de máquina, contida no REM da 
linha 1. Para saber quais são esses valo- 
res, veja na figura 1 como é escrita uma 
linha de programa na memória. 

Será necessário conhecer o endereço 
na memória do primeiro byte do valor 
que indica a quantidade de byte do tex- 
to mais um do REM a ser expandido e 
que chamaremos variável A. Chamare- 
mos variável B o endereço na memória 
do primeiro byte a ser deslocado dentro 
do texto. 

Agora, efetue as seguintes operações: 


16519, INT(B/256) 
16518,B-256*PEEK 16519 
16528, INT(A/256) 


16527 ,A-256*PEEK 1654 
16532, PEEK 16528 
16531, PEEK 16527 





E depois, entre normalmente no item 


F do monitor. Ea 
or z 


MICRO SISTEMAS, marco /84 


Quando você precisa 
de suprimentos para 


informática, VOCÊ prefere: 


| ! Qualidade || Preco 





FITAS 
MAGNÉTICAS 


pd Qualidade 


Na Memphis, você 
tem 100% de garantia quanto a 
qualidade do produto, pois caso 
ele não satisfaça suas exigências, 
você simplesmente o devolve. 


p<! Preço 


A Memphis tem mais ARQUIVO 
de 400 produtos e torna-se difícil E PARA 
listá-los aqui, porém, basta um | 

simples telefonema para a nossa 
filial mais próxima e você terá 
imediatamente o preço de qualquer 
produto para informática. 

Você verá que nossos preços são 

os melhores do mercado. 


DISQUETE 



















ARQUIVOS 
MODULARES 
PARA PASTAS 









FORMULÁRIOS 
CONTÍNUOS 





MESAS PARA 
MICROS TERMINAIS 
E IMPRESSORAS 
FITAS 
IMPRESSORAS 


PASTAS PARA 
FORMULÁRIOS 
CONTINUOS 
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Como os colégios estão se adaptando à era do microcomputador aliado à Educação e o que 
existe no mercado em termos de software aplicativo 








O microcomputador 


na sala de aula 


microcomputador 

está chegando às 

escolas brasileiras. E 

bem verdade que a 
porta da administração é a mais 
fácil de se entrar, mas já há 
casos de plena utilização em sala 
de aula, com os alunos fazendo 
exercícios de matemática ou 
compreendendo melhor a 
montagem de uma molécula. 
Mas isso é muito recente e a 
experiência mais antiga, das 
sete Escolas Americanas no 
Brasil, está completando dois 
anos agora. 

Fred Kautz, responsável 
pelos micros da Escola 
Americana do Rio de Janeiro, 
diz que a escola vem realizando 
um trabalho semelhante ao que 
é desenvolvido nos Estados 
Unidos. (Ele mesmo deu 
cursos para vários professores da 
escola que aplicam o micro 
como apoio didático). No 
Segundo Grau, qs alunos 
recebem noções de computação 
e aprendem as linguagens BASIC 
e Pascal, mas o primeiro contato 
com os micros se dá ainda no 
pré-escolar, a partir dos 4 anos. 
Na escola, há duas salas de 
micros, uma para o Primeiro 
Grau, sob a coordenação da 
professora Rita Niederer, com 
seis Unitron (APII) e dois 
Apple, todos acoplados com 
aparelhos de TV a cores, e outra 
para o Segundo Grau, sob a 
coordenação de Fred Kautz, 
com dois CP-S00 e seis TRS-80 
da empresa americana Radio 
Shack. Quanto aos programas, 
Kautz explica não haver 
dificuldade, pois como a língua 
básica da escola é o inglês, ele 
os compra nos Estados Unidos, 
onde são abundantes. 


DO MATERNAL 
AO PRÉ-VESTIBULAR 


as como no Brasil 
isso ainda é 
novidade, 
o Colégio Objetivo 
de São Paulo contratou 
nove analistas que, em 
conjunto com os professores, 
desenvolveram 210 programas 
para todas as matérias, desde 
o maternal até o pré-vestibular. 
Com 30 mil alunos, o Objetivo 
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possui diversos micros, entre 
CP-300, CP-500, APII e Micro 
Engenho, que também são 
utilizados para ensinar as 
linguagens BASIC e Logo. 

O Colégio Pueri Domus, 
também de São Paulo, é um dos 
pioneiros no uso do micro- 
computador em sala de aula, 
utilizando-o há um ano no 
Segundo Grau e agora também 
no Primeiro Grau. Ainda na 
capital paulista, há os colégios 
Bandeirantes, que usa micros 
para recapitulação de aulas, 

e Etapa, que os usa como um 
recurso equivalente aos filmes, 
simulando ilustrações. 


Já o Centro Educacional de 
Niterói vem utilizando micros 
há um ano. Segundo a 
coordenadora de Informática da 
escola, Nicia Pereira Muniz, um 
trabalho conjunto entre os 
professores do Centro e a 
Embratel resultou na criação de 
20 programas para Matemática 
e Portugués que, a partir deste 
ano, serão utilizados para 
aprendizagem normal em sala 
de aula em duas turmas da 
quarta série, e para recuperação 
de alunos da quinta e sexta 
séries. Além disso, o Centro 
possui um Clube de Matemática, 
como atividade optativa, que 
deverá fazer um projeto especial 
com microcomputadores, a ser 
escolhido pelos alunos em 
conjunto com o coordenador do 
Clube. Atualmente a escola 
possui cinco CP-500. 


CULTURA 
DE INFORMÁTICA 


om o objetivo 

imediato de 

“desenvolver uma 

cultura de Informática 
para uma utilização posterior”, 
Luís Antônio Silveira, diretor da 
Escola Senador Correia, no Rio, 
comprou um Unitron com 
vários periféricos, inclusive uma 
impressora. Neste primeiro 
semestre, serão dados na escola 
vários cursos para Os 
professores, a fim de que eles 
próprios cheguem a desenvolver 
programas educativos para o 
Primeiro Grau. De qualquer 
modo, já a partir do segundo 
semestre, as crianças passarão a 


ter contato com os micros em 
exercícios de recuperação, para 
melhor fixarem as aulas. 

Além destes, existem outros 
colégios que, ao invés de 
utilizarem o microcomputador 
como suporte para O ensino 
das matérias curriculares, 
limitaram-se a oferecer a seus 
alunos um curso de BASIC 
como é o caso dos colégios 
Anhembi, lavne Beith 
Chinuch, Brasil, Bandeirantes, 
Etapa, Universitário, Sagrado 
Coração de Jesus, Rio Branco, 
Brasil-Europa, Benjamin 
Constant e Santo Agostinho, 
em São Paulo; c Centro Federal 
de Educação Tecnológica Celso 
Suckow da Fonseca, colégios 
estaduais Olavo Bilac e Paulo de 
Frontin, Colégio Franco- 
Brasileiro e Colégio Bahiense, 
no Rio. 

O Colégio Bahiense está 
entrando nesta área este ano e, 
para isso, vai comprar 10 
microcomputadores compatíveis 
com o TRS Color Computer. 
Numa segunda etapa, segundo o 
professor Marcelo Ferro Costa, 
além de ampliar o curso de 
linguagens com o ensino do 
Pascal e Cobol, o colégio vai 
substituir os serviços dos 
bureaux por equipes do próprio 
colégio, aproveitando, inclusive, 
alguns alunos vindos dos cursos 
de micro, para fazer trabalhos 
na parte administrativa. Mas a 
médio prazo, o colégio pretende 
também desenvolver software 
específico na área de Educação, 
montando uma equipe 
especialmente para esse fim, 
pois “não existe software 
educacional de boa qualidade 
disponível no mercado, sendo 
a maioria deles elementar”. 


CIRCULO VICIOSO 


lementares ou não, os 
programas estão 
surgindo. No entanto, 
hã nesta área um 
círculo vicioso que já começa a 
ser rompido pelas escolas: as 
soft-houses não desenvolvem 
programas porque não há 
mercado, e não há mercado 
porque não há programas. 
Assim, num giro pelas lojas 
especializadas e soft-houses, 


pode-se achar coisas como 
Tutor de Matemática, da 
Microsoft, para os TKs 82, 83 e 
85; Vocabulário Português- 
Inglês, da Micro Kit, para a linha 
Sinclair; Linguagem MLogo, da 
Microarte, para a linha Apple; 
Estatística | e Matemática I, da 
Microsoft, para a linha Sinclair; 
Operações Aritméticas, da 
Clappy, para o Color 64; 
Educational Games americanos, 
de vários fabricantes, para a 
linha Apple; programas de 
Eletrônica e grático de circuitos 
e simulação de situações 
matemáticas, da BMK, para 
qualquer micro com CP/M; 
Editor de Figuras e Contas, da 
Everton Consultoria e Software, 
já vendido para um jardim de 
infância de Niterói, para o CP- 
500; e o Sinapre, de Nereide 
Schilaro Santa Rosa e Francisco 
Carlos Santa Rosa, software 
voltado para a pré-escola, mas 
ainda não adotado por nenhum 
estabelecimento, e a venda em 
lojas de São Paulo. 

A realidade da escola 
brasileira, contudo, ainda 
permanece bem distante dos 
microcomputadores. A escola 
pública nem sonha com isso, 
ainda às voltas com problemas 
básicos como instalações 
adequadas e merenda escolar. E 
a escola particular trava uma 
discussão pedagógica e 
ideológica sobre a importância 
dos microcomputadores na 
Educação. Enquanto isso, a 
Prológica tenta dar um passo à 
frente, oferecendo seus micros a 
preços espeoiais, com o objetivo 
de facilitar as escolas a 
introduzirem nos seus 
programas de ensino a matéria 
Processamento de Dados. E as 
crianças, alucinadas com a febre 
dos videogames, a cada dia se 
interessam mais pelos 
microcomputadores, 
procurando obter maiores 
conhecimentos em cursos de 
Pasic, especialmente ministrados 
para elas, que começam a 
mostrar-se bastante populares 
e lucrativos para as lojas, 
cursinhos e mesmo tradicionais 
universidades. 


Texto: Lúcio Santos + 
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Os Disquetes Datalife sempre têm 
um modelo exato para cada tipo de 
necessidade, seja ela para controles e 
decisões empresariais, assuntos pessoais 
e profissionais ou lazer com 
microcomputador. 





Memphis. 


São os mais vendidos no mundo e 
produzidos pela empresa que mais 
investe em pesquisa e desenvolvimento 
de produtos, líder mundial na tecnologia 
de mídia magnética flexível. 

Tudo isso está a seu dispor na 
Memphis. 

A Memphis responde, com a 
segurança de que você pode comprar 


REVENDEDORES E FABRICANTES INTERESSADOS: (011) 262-5332 
CENTRAL DE VENDAS: Av. Arnolfo Azevedo, 108 - São Paulo - Tel. (011) 262-5577 - Telex. (011) 34545 - FILIAL RIO DE JANEIRO: Praia do Flamengo, 66 
Bloco B-Cj. 1519 - Tels. (021) 225-3469 e (021) 205-3849 - MATRIZ: Av. Angélica, 35 - São Paulo - Tel. (011) 8226-9500 - REPRESENTANTES e BA - Salvador 
(071) 241-6369 * DF - Brasília (061) 223.3330 * MG - Belo Horizonte (031) 442.9472 e PR - Curitiba (041) 222-4831 e RS - Porto Alegre (0512) 25-9273 

* SC - Florianópolis (0482) 132 ramal 15 e SP - Bauru (0142) 228-4305 e SP - Jundiaí (011) 434.3199 e SP - Presidente Prudente (0182) 22-7999 


seus Disquetes Datalife num local onde 
eles têm pai, mãe, residência conhecida, 
e garantia de 5 anos. 

A Memphis tem estoques para entrega 
imediata. 


Verbatim. 
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Uma descrição passo a passo do início do funcionamento do Monitor residente 
no CP-500, que o ajudará a entender melhor o software básico desse micro 








A inicialização do 
monitor no CP-500 


esde que adquiri meu CP-500, 
D com 48 Kbytes e gravador, fi- 
quei muito interessado no Mo- 
nitor residente do micro. Anteriormen- 
te, fui proprietário de um D-8000 e para 
este micro eu dispunha em minha bi- 
blioteca de dois programas monitores: O 
TBUG, da Radio Shack, e o ZBUG, que 
foi publicado na revista 80 Microcompu- 
ting, em janeiro de 1981. Este último 
era um monitor extremamente podero- 
so, com várias facilidades, tais como có- 
pias de programas System, breakpoints, 
display em ASCII e hexadecimal etc, 
executando perfeitamente no CP-500. 
Estando sempre envolvido com pro- 
gramas monitores, naturalmente senti- 
me interessado pelo monitor residente 
no CP-500 e passei a estudá-lo. Fazendo 
uso do próprio monitor e do comando 
D (Display), examinei-o completamente. 
Minha primeira preocupação era desco- 
brir onde o monitor se carregava na me- 
mória e qual o endereço inicial de exe- 
cução (o entry point ). Ao examinar O 
endereço final, ocorreu-me investigar 
também o relacionamento do Monitor 
com o Interpretador BASIC, isto é, co- 
mo era mostrado no vídeo o logotipo da 
Prológica e a mensagem BASIC (Sou N)?. 
Fazendo uso de um programa disas- 
semblador, obtive uma listagem do Mo- 
nitor e passei a examiná-la. Após uma 
análise detida, acabei por examinar a ro- 
tina de inicialização do micro, isto é, O 
que acontece quando se liga o computa- 
dor. Isto foi necessário para verificar 
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como a rotina de inicialização permitia 
a apresentação do logotipo e a pergunta 
inicial. E é justamente o que descobri 
desta inicialização que pretendo descre- 
ver neste artigo. 


A INICIALIZAÇÃO 
PASSO A PASSO 


Vamos apresentar então todas as ins- 
truções executadas pela UCP quando da 
inicialização (quando se liga o micro), 
até que seja apresentado no vídeo o lo- 
gotipo da Prológica e a pergunta inicial 
(*). Na explicação dos efeitos das ins- 
truções, estarei me referindo ao livro 
Z80 Assembly Language Programming, 
de Lance Leventhal, da coleção Osborne / 
McGraw-Hill. (Veja na figura 1 a lista- 
gem completa das instruções executadas 
durante a inicialização). 

Quando você liga o seu CP-500, o 
contador de programa da UCP (PC) é 
inicializado com 0000, sendo este o en- 
dereço da primeira instrução a ser exe- 
cutada pela UCP. Se você utilizar o Mo- 
nitor residente de seu micro, você po- 
derá checar os códigos hexadecimais das 








* Nota do Autor: Os endereços referidos 
neste artigo são válidos para as EPROMSs ori- 
ginais do CP-500. Como a Prológica já proce- 
deu a revisões, os endereços, e eventualmente 
algumas instruções, podem não corresponder 
exatamente ao que se apresenta nesta oportu- 
nidade. Posteriormente, em outros artigos, fa- 
rei comentários sobre as novas EPROMS. 





instruções, que serão listados juntamen- 
te com os mnemônicos, na segunda co- 
luna, após a coluna de endereços. (Note 
ue os endereços estão em hexadecimal 
). Use o Monitor para acompanhar a 
descrição a seguir. 
Assim, a primeira instrução a ser exe- 
cutada, localizada no endereço 0000 é: 


0000 F3 DI 


Esta instrução inibe as interrupções 
que eventualmente poderiam ser recebi- 
das pela UCP e que podem ser inibidas. 
O CP-500 possui um Z80 como proces- 
sador central e este possui dois tipos de 
interrupções: as mascaráveis (maskable) 
e as não-mascaráveis (non-maskable). As 
mascaráveis podem ser inibidas ou igno- 
radas se assim o desejamos; as não-mas- 
caráveis não o podem. 

(As interrupções, para os que não sa- 
bem, são recursos técnicos muito impor- 
tantes, que permitem aos periféricos e 
outros dispositivos requisitarem a aten- 
ção imediata da UCP, na verdade após 
completada a instrução que estiver sen- 
do executada.) 

No CP-500, o relógio interno, o cas- 
sete e a interface RS-232, entre outros, 
emitem interrupções mascaráveis para a 
UCP. No caso do relógio interno, um 
sinal de 30 Hz interrompe periodica- 
mente a UCP para que o relógio seja 
atualizado e controlado e para piscar O 
cursor. Assim, a instrução DI inibe este 
tipo de interrupção originada pelos dis- 
positivos periféricos mencionados, po- 
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0001 
0002 
3015 
3455 
3457 
345A 
345€ 
345E 
3460 
3462 
3464 
3466 
3468 
346B 
346D 
346F 
3471 
3474 
3476 
3478 
347A 
347C 
347E 
3481 
3484 
3487 
3489 
348c 
348F 
3492 
3494 
3496 
3499 
349cC 
349F 
3441 
4744 
47A6 
4749 
47AC 
47AF 
4781 


47B2 
47Cc 


47CE 
47DO 
47D3 
47DS 
47D8 
47D9 
47DC 
47DF 
47E2 
47E3 
47E6 
47E9 
47EC 
47EF 
47F2 
47FS5 
47F8 
47FB 
47FE 
4801 
4804 
4807 
4809 
480C 
480F 
4811 
4814 
4816 
4819 
48B1C 
4B1E 
4821 
4824 
4827 
482A 
482C 
482F 
4832 
4835 
4838 
4839 
4847 


4910 
4920 


[016] 


Figura 1! — Rotina de inicialização do CP-500 


A 
3015H 
3455H 
1 


SP,407DH 
(E4H),A 
20H 
(ECH),A 
A,81H 
(F4H),A 
A, DOH 
(FOH),A 
3525H 

A, (FOH) 
A, DOH 
(FOH),A 
3525H 

A, (FOH) 
A,04H 
(E0H),A 
A,OBH 
(FOH),A 
HL,36AAH 
DE, 4000H 
BC,004CH 


HL,36F9H 
DE, 41ESH 
BC,003FH 


A,(Fa4H) 

HL, 3000H 
DE, 4300H 
BC, 0B00H 


47A4H 
A,(F4H) 
01C9H 
028DH 

NZ, 47CCH 
A, (FOH) 

A 

Z. 47CCH 
A, ODH 
B,06H 
0033H 
47DOH 
DE,4921H 
DE 
HL,3C52H 
4934H 
HL,3CD2H 
DE 

4934H 
HL,3C92H 
DE, 4928H 
4934H 
HL,3D12H 
DE, 492FH 
4934H 

HL, 3CDBH 
DE,4910H 
4934H 
HL,4838H 
021BH 
A,3FH 
(4023H),A 
0049H 

“8” 

Z, 481CH 
“Nº 
Z,4824H 
480CH 

A, BOH 
(4023H),A 
37AEH 

HL, 4890H 
(4204H),HL 
A, BOH 
(4023H),A 
4300H 
HL,48A1H 
4736H 

EH » 
“BASIC (S ou N) 
03H 


“PROLOGICA CP-5007 
00H 
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dendo as mesmas ser habilitadas seleti- 
vamente quando for necessário. 

O Z80 reage às interrupções mascará- 
veis de três modos diferentes: 

1 — No modo 0, é possível que o peri- 
férico ou dispositivo que onginou a in- 
terrupção coloque um byte na via de da- 
dos da UCP. 

2 — No modo 1, as interrupções for- 
çam um reinício (restart) no endereço 
38H. 

3 — No modo 2, acessa-se um determi- 
nado endereço formado pelo byte for- 
necido pelo dispositivo e pelo byte cor- 
rente do registro I do Z80. 

Estes modos são selecionados pelas 
instruções IM 0, IM 1 e IM 2. 

O outro tipo de interrupção do Z80 
são as não-mascaráveis. Estas não po- 
dem ser ignoradas ou inibidas e, quando 
emitidas, forçam um reinício a partir do 
endereço 66H. Quando se aperta o bo- 
tão RESET do CP-500, origina-se uma 
interrupção não-mascarável. 

O CP-500 manipula as interrupções 
por meio de portas. Por exemplo, a por- 
ta EOH, quando usada como saída, habi- 
lita interrupções mascaráveis de vários 
dispositivos, dependendo do bit ativo do 
byte emitido pela porta. Veja a figura 2 


para uma relação completa. 
prio INT A 
ATIVO I ERRUPÇÃO HABILITADA 
Borda de subida da ve- 
locidade de 1500 bauds 
E locidade de 1500 bauds 
Relogio de tempo real 
interno 
[3 | Periréricos Externos | 
Figura 2 — Porta EOH — habilitação de inter- 
rupções mascardveis. 












3orda de descida da ve 
Interface RS-232€ 


A porta EOH, quando usada como 
entrada (IN), permite saber quem regis- 
trou a interrupção, dependendo do bit 
ressetado do byte contido no Acumula- 
dor, mantida a mesma associação bit- 
dispositivo, como se pode observar na 
figura 2. 

A instrução seguinte é: 

0001 AF  XORA 

A instrução XOR reg implica na exe- 
cução de um OU exclusivo do registro 
especificado (reg) com o Acumulador. 
Neste caso, está sendo realizado um OU 
exclusivo do Acumulador com o próprio 
Acumulador. O objetivo da instrução 
XOR A é simplesmente limpar (zerar) 
o Acumulador "e com este zeramento 
ajustar os flags do registro F para suas 
condições normais. 

Com o Acumulador zerado, a próxi- 
ma instrução a ser executada é: 


0002 C31530  JP3015H 


A instrução JP é um desvio incondi- 
cional para o endereço especificado, de 
modo que a execução se desvia para O 
endereço 3015H, onde encontramos um 
outro desvio incondicional: 


3015 C35534  JP3455H 


Neste endereço, realmente começa a 
rotina de inicialização. A partir da pró- 
xima instrução, a UCP irá realmente 
ajustar O sistema para uma condição pre- 
fixada de parâmetros, bem como inicia- 
lizar determinadas áreas da região de co- 
municações da RAM: 


3455 EDS6  IMI 
Esta instrução coloca a UCP no mo- 
do de interrupção 1. Assim, a UCP res- 
ponde a uma interrupção mascarável 
executando um restart no endereço 
0038H. 


3457 317D40 LD SP, 407DH 


Esta instrução ajusta a pilha (stack) 
no endereço 407DH. Isto é necessário 
para permitir a utilização da mesma. 


345A D3E4 OUT (E4H), A 


A porta E4H está associada com as 
interrupções não-mascaráveis (NMJ). 
Quando usada como saída, permite sele- 
cionar duas opções de geração de inter- 
rupções não-mascaráveis, dependendo 
do bit ativo do byte emitido pela mes- 
ma. Quando usada como entrada, per- 
mite saber quem originou a interrupção. 
Emitindo um byte nulo por esta porta, 
estamos ressetando ou desativando as 
opções que podem ser ativadas. 


345C F620 OR 20H 


A instrução OR 20H realiza a opera- 
ção booleana OR entre o Acumulador e 
o byte especificado (20H). Como o Acu- 
mulador estava zerado, após esta instru- 
ção o Acumulador conterá 20H (ou 
001009000 em binário). 


345SE D3EC OUT (ECH), A 


A porta ECH controla o motor do 
cassete, o tamanho dos caracteres no ví- 
deo e a seleção dos caracteres especiais 
ou Katakana. Com esta operação, o sis- 
tema desliga o motor do cassete, selecio- 
na 64 caracteres por linha e especifica os 
caracteres especiais ao invés do alfabeto 
Katakana, que é a condição padrão do 
micro. 


3460 3E81  LDASIH 
3462 D3F4 OUT(F4H)A 


A porta F4H é a porta de controle do 
FDC, que é o controlador dos discos. 
Através do byte emitido por esta porta, 
pode-se selecionar um drive, um lado do 
disquete, dupla/simples densidade etc. 
Carregando o Acumulador com 81H (ou 
10000001 em binário), seleciona-se o 
drive O, dupla densidade e lado O. Ao 
emitir o byte 81H, o led do drive O 
acende e o motor do mesmo é energiza- 
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a E eee, 


do por 2,5 segundos aproximadamente, 
caso o sistema possua discos. Se não há 
discos, nada acontecerá. 


3464 3EDO LD A,DOH 
3466 D3F0 OUT (FOH),A 


Associada com a emissão de coman- 
dos ao controlador de discos, a porta 
FOH funciona no modo entrada (INPUT) 
como registro de estado (status) e na 
saída, como registro de comandos para 
o FDC. Emitindo o byte DOH por esta 
porta, o que corresponde a 11100000 
em binário, resseta-se (inicializa-se) o 
controlador de discos (FDC). 

3468 CD2535 CALL 3525H 


Esta sub-rotina produz um atraso, pa- 
ra permitir ao controlador tempo para 
que ele reaja ao comando emitido. O 
código desta sub-rotina é o seguinte: 


3525 C5 PUSHBC 
3526 C1 POPBC 
352700 NOP 
3528€C9 RET 
Em seguida, é executada a seguinte 
instrução: 
346B DBFO IN A(FOH) 
permitindo ao sistema o recebimento 
do estado informado pelo FDC em res- 
posta ao comando emitido anteriormen- 
te. Como não há nenhuma decisão a se- 
guir, parece-me um pouco fora de pro- 
pósito tal grupo de instruções, que é re- 
petido novamente, como podemos ver 
abaixo: 
346D 3EDO LD A,DOH 


346F D3F0 OUT (FOH),A 
3471 CD2535 CALL 3525H 
3474 DBFO  INA(FOH) 


Em seguida, temos as seguintes ins- 
truções: 


3476 3E04  LDA,04H 
3478 D3E0 OUT (E0H),A 


Como visto, a porta EOH é usada 
como latch das interrupções mascaráveis 
e ao emitir o byte 04H, que corresponde 
em binário a 00000100 (portanto, com 
o bit 2 ativo) habilitam-se as interrup- 
ções do relógio de tempo real (veja a fi- 
gura 2). 

347A 3E0B LD A,OBH 
347C D3F0 OUT (F0H),A 


Estas instruções referem-se à porta 
FOH, ligada ao controlador de discos e 
usada na saída para enviar comandos ao 
FDC. O byte OBH, que corresponde ao 
binário 00001011, representa o coman- 
do RESTORE, que posiciona a cabeça 
de gravação/leitura na trilha O. Os bits 
O e 1 iguais a 1 (ativos) determinam que 
o tempo de acesso inter-trilhas seja de 
40 ms. 

As instruções a seguir, dois blocos de 
movimentação de memória, utilizando a 
poderosa instrução LDIR do Z80, trans- 
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ferem para a RAM os bytes que iniciali- 
zam os vetores das instruções RST e os 
blocos de controle de periféricos (DCB, 
Device Control Block), especificamente 
os seguintes: teclado, vídeo e impresso- 
ra. No segundo bloco de instruções, é 
inicializada outra importante área da 
RAM, correspondente aos DCBs da in- 
terface RS-232C (entrada, saída e inicia- 
lização) e ao DCB do direcionador 
(ROUTER) de E/S: 


347E 214436 LDHL36AAH 
3481 110040 LD DE4000H 
3484 014000 LD BC,004CH 
3487  EDBO LDIR 

3489  21F936 LD HL,36F9H 
348C  11E541  LDDE,41ESH 
348F  013F00 LD BC,003FH 
3492  EDBO LDIR 


O próximo grupo de instruções in- 
trigou-me durante várias semanas: 


3494 DBF4 INA(F4H) 
3496 210030 LD HL3000H 
3499 110043 LD DE,4300H 
349C 010008  LDBC0800H 
349F EDBO  LDIR 


A porta F4H normalmente só é usada 
para saída e neste grupo de instruções 
ela executa uma função que não lhe é 
peculiar, o que já é estranho. Mas o fato 
é que antes da execução deste grupo de 
instruções, um exame dos endereços 
4300H e seguintes não revelava o Mo- 
nitor. Após uma execução do grupo, lá 
estava o Monitor! 

Examinando a região em que se exe- 
cuta a instrução LDIR (3000H e seguin- 
tes) de onde o Monitor originou-se, os 
valores encontrados eram completamen- 
te diferentes dos do Monitor! Tentar in- 
terromper a execução do grupo após a 
instrução IN A(FOH) e antes da próxi- 
ma instrução, ressetava o microcompu- 
tador. 

Diante de tais fatos, fiquei inicial- 
mente um pouco confuso, mas acabei 
por resolver o mistério. 


O CHAVEAMENTO DA EPROM 


A instrução IN A(FOH) é responsá- 
vel por um chaveamento de uma das 
EPROMs, que numa situação exibe o 
Monitor e noutra uma parte do Inter- 
pretador BASIC normal. Você pode ve- 
rificar isto em seu micro, utilizando o 
próprio Monitor residente. Entre no mo- 
do Monitor e, utilizando o comando S, 
introduza os seguintes códigos a partir 
do endereço 7300H: 


7300 DBF4 INA(F4H) 
7302 210030 LD HL,3000H 
7305 110073 LD DE,7300H 
7308 010F00 LD BC,000FH 
730A EDBO LDIR 

730C DBF4  INA(F4H) 
730E 210030 LD HL,3000H 


7312 110074 LD DE,7400H 
7315  010F00 LD BC,000FH 
7318  EDBO LDIR 


Entre com os códigos relacionados na 
segunda coluna e, após entrar com o úl- 
timo código, tecle ENTER para retornar 
ao modo de comando do Monitor. Em 
seguida, execute o programa acima com 
o seguinte comando: 


J 7300,731A (ENTER) 


Com este comando do Monitor, ini- 
cia-se a execução no endereço 7300 e 
interrompe-se a execução no endereço 
731A, pois neste endereço foi coloca- 
do um breakpoint (veja adiante). Ao 
encontrar o breakpoint, o Monitor mos- 
tra no vídeo o endereço 731A envolvi- 
do por asteriscos: 


ISLAS 


Então, fazendo uso do comando 
DISPLAY (D) do Monitor, vamos veri- 
ficar o conteúdo dos oito endereços que 
se seguem a 7300 e 7400: 


D 73008 (ENTER) 
E observaremos no vídeo os seguintes: 


22DF54210000ED73... 
Entre agora com o comando: 
D 7400,8 (ENTER) 
E teremos no vídeo: 


C35E32C39B32C374... 
Novamente, tecle o seguinte coman- 
do: 
D 4300,8 (ENTER) 


Para exibir as primeiras instruções do 
Monitor: 


22DF54210000ED73... 


Note que devido ao chaveamento ini- 
cial, carregaram-se os primeiros oito by- 
tes do programa Monitor no endereço 
7300. Chaveando novamente, isto é, re- 
tomando à condição inicial, carrega-se 
parte do Interpretador no endereço 
7400H. Compare os resultados do co- 
mando D 4300,8 com os do D 73008, 
que acabamos de mostrar. 

Dissemos ainda, que se tentarmos in- 
terromper a execução depois de chavea- 
da a EPROM para carregar o Monitor, o 
sistema entraria em loop infinito, haven- 
do necessidade de ressetar-se o computa- 
dor. Você pode verificar isto da seguin- 
te forma: entre com o seguinte comando 
e veja O que acontece: 

J 7300,7302 (ENTER) 

Este comando coloca um breakpoint 
em 7302, logo após executar a instrução 
IN A(F4H) e antes de executar a pró- 
xima instrução. 

Carregado o Monitor, a execução 
prossegue a partir do endereço 47A4, 
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pois a instrução seguinte assim o deter- 
mina: 


34A1 C3A447 JP47A4H 


Note que os códigos recém-carrega- 
dos também contêm parte da rotina de 
inicialização, bem como o Monitor resi- 
dente. Continuando, temos: 


4744 DBF4 INA(F4H) 


Com esta instrução, chaveia-se a 
EPROM para a situação normal, já que 
o chaveamento anterior a tinha coloca- 
do no modo especial. 


4746  CDC901 CALLOIC9H 
47A9  CD8D02 CALL028DH 
47AC  C2CC47  JPNZ,47CCH 


A sub-rotina 01C9H é documentada 
no manual como $VDCLS (pág. 51) e 
tem como função limpar a tela. A sub- 
rotina 028DH é documentada como 
SKBBRK e tem como objetivo verificar 
se a tecla BREAK está pressionada. 

O propósito deste teste é o seguinte: 
se O sistema possui discos, a tendência é 
carregar o DOS 500 quando se resseta o 
micro ou quando o mesmo é ligado. En- 
tão, se ao ligarmos uma configuração 
com discos pressionarmos a tecla 
BREAK, isto será detectado pelas ins- 
truções localizadas em 47 A9H e 47ACH 


e a execução será desviada para o ende-- 


reço 47CCH, onde haverá a continuação 
da inicialização típica de um sistema 
sem discos. 

Se a tecla BREAK não for pressiona- 
da, a execução prossegue com: 


47AF  DBFO IN A(FOH) 
47B1l 3€ INC A 
47B2 CACC47 JPZ,47CCH 


A instrução IN A(FOH) retorna o va- 
lor 80H ou 00H se houver discos no sis- 
tema e FFH caso não haja. Incremen- 
tando o Acumulador, teríamos 81H, 
01H e 00H respectivamente. 

Não existindo discos no sistema, a 
instrução JP Z,47CCH desvia a execução 
para 47CCH, já que o flag Z foi setado 
(Z=1) em função do resultado nulo da 
operação INC A. 

Noutra oportunidade examinaremos 
a situação com discos no sistema. Consi- 
deremos agora a inicialização a partir do 
endereço 47CCH, que é a dos sistemas 
sem discos, ou com discos e a tecla 


BREAK pressionada. 
47CC  3E0OD LD A,/ODH 
47CE “0606 LD B,06H 
47D0  CD3300  CALL0033H 
47D3  10FB DJNZ 47D0H 


Este grupo de instruções move o cur- 
sor para a sexta linha, preparando a tela 
para a apresentação do logotipo da Pro- 
lógica. A sub-rotina 0033H, documen- 
tada como $VDCHAR no manual do 
CP-500, mostra no vídeo o caráter con- 
tido no Acumulador. Esta operação é 
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repetida seis vezes por força da instru- 
ção DJNZ 47D0H. Ela decrementa o 
registro B e enquanto o seu conteúdo 
não for zero, há um desvio para 47D0H. 
Note que o conteúdo do Acumulador é 
o valor ASCII ODH, ou 13 em decimal, 
que é o retorno do carro (CR). 


Continuando: 

47D5S 112149 LD DE,4921H 
47D8 DS PUSH DE 
47D9  21523X  LDHL3C52H 
47DC  CD3449  CALL4934H 


O endereço 4921H contém o valor 
ASCII dos símbolos gráficos da parte su- 
perior do logotipo. Se você usar o co- 
mando D do Monitor da seguinte forma: 


D 4921,7 (ENTER) 
serão mostrados no vídeo: 
4921 8F85 8F85 8F85 00 


O endereço 4921H é armazenado na 
pilha (PUSH DE) porque os símbolos 
contidos ali serão novamente utilizados. 
3C52H é um endereço do vídeo (lem- 
bre-se de que o vídeo é mapeado na 
memória), onde os símbolos serão visua- 
lizados. 

Uma vez inicializados os pares DE 
e HL, uma sub-rotina localizada em 
4934H é chamada para exibir os sím- 
bolos no vídeo. O código desta sub-roti- 
na é o seguinte: 


4934 IA LD A(DE) 
4935 B7 OR A 
4936 C8 RET Z 
4937 77 LD (HL),A 
4938 23 INC HL 
4939 13 INC DE 
493A 33449 JP4934H 


O funcionamento é assim: inicial- 
mente o conteúdo do endereço conti- 
do no par DE é transferido para o Acu- 
mulador. A instrução OR A setará o 
flag Z (Z=1) do registro F se o conteúdo 
do Acumulador for zero; se Z=1, retor- 
na-se da sub-rotina. Desta maneira, sina- 
liza-se o fim dos blocos gráficos com um 
byte OOH (veja que ele existe no con- 
junto de valores contidos a partir do en- 
dereço 4921H). Se o valor contido no 
Acumulador não for zero, transfere-se o 
conteúdo do Acumulador para a posição 
indicada pelo par HL, que, como vimos, 
corresponde a uma posição no vídeo. 
Incrementa-se DE e HL (novo símbolo e 
nova posição no vídeo) e repete-se o 
ciclo. 

47DF  21D23C  LDHL,3CD2H 

47E2 Di POP DE 

47E3  CD3449 CALL4934H 

Este grupo de instruções repete o pri- 
meiro grupo de símbolos do logotipo 
em outra posição do vídeo. A instrução 
POP DE recupera o valor 4921H (que 
havia sido alterado pelas sucessivas ins- 
truções INC DE), habilitando a reapre- 





sentação dos símbolos uma linha abaixo 
dos símbolos anteriores. Em seguida, 
temos: 


47E6  21923C  LDHL,3C29H 
47E9 112849  LDDE,4928H 
47EC  CD3449 CALL 4934H 


O endereço 4928H contém os valo- 
res ASCII da linha de símbolos que for- 
ma o nariz do logotipo. Use o Monitor 
para exibi-los no vídeo, através do se- 
guinte comando: 

D 4928,7 (ENTER) 

4928 8F85 2020 8F8D 00 

O próximo grupo de instruções apre- 
senta a última linha do logotipo, o pes- 
coço: 


47EF  21123D  LDHL;3D12H 
47F2  112F49  LDDE492FH 
47FS  CD3449 CALL 4934H 


Use o comando D do Monitor para 
visualizar os valores ASCII dos últimos 
símbolos: 

D 492F,5S (ENTER) 

492F 8F85 8F85 00 

Agora, com as instruções abaixo, é 
apresentada a mensagem PROLOGICA 
CP-500, localizada no endereço 4910H: 


47F8  21DB3C LD HL;3CDBH 


47FB 111049  LDDE,4910H 
47FE  CD3449  CALL4934H 
Continuando, teremos: 

4801 213848 LD HL,4838H 


4804  CD1B02 CALLO021BH 


A sub-rotina 021BH, documentada 
como $VDLINE, é utilizada para apre- 
sentar a mensagem BASIC (S ou N). 
Ela está localizada no endereço 4838H 
e é precedida por OEH (que liga o cursor 
na tela) e terminada por 03H, necessária 
à sub-rotina $VDLINE (veja pág. 51 do 
Manual). Note também que esta sub- 
rotina usa a posição do cursor armazena- 
da pelo sistema e esta posição já foi ajus- 
tada pelas instruções dos endereços 
47CCH a 47D3H. 

Antes de continuarmos o processo 
de inicialização, vamos usar o Monitor 
para executar a parte da inicialização 
que apresenta o logotipo e a mensagem 
BASIC (S ou N). Primeiramente, vamos 
criar um meio de limpar a tela quando 
no Monitor. Com o comando S, modifi- 
que o conteúdo do endereço 7500H e 
seguintes, para conter as duas instruções 
abaixo: 


7500  CDC901 CALLO1IC9H 
7503  CE431F JP431FH 


A sub-rotina 01C9H ($ VDCLS) apa- 
ga a tela e em seguida retoma ao nível 
de comando do Monitor (o endereço 
431FH é um ponto de reentrada conve- 
niente, já que se reentrarmos por 4300H 
haverá o display da mensagem MONI- ,, 
TOR VE O 1.0 1982, que não nos & 
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interessa no momento). Tecle J 7500 
(ENTER) e o cursor estará localizado no 
canto superior esquerdo da tela. Em se- 
guida, tecle o seguinte comando: 


J47CC (ENTER) 


E o logotipo e a pergunta inicial apa- 
recem na tela! 

Continuemos, agora, a interpretar o 
restante do processo de inicialização: 


4807  3E3F LD A,3FH 
4809 322340  LD(4023H),A 


O valor 3FH corresponde ao código 
ASCII do símbolo ?. O endereço 4023H 
pertence ao DCB do vídeo. Ele define 
o caráter que será utilizado como cursor 
(veja pág. 54 do Manual). Assim, após 
estas duas instruções, O caráter ? passa a 
ser utilizado como cursor. 


480C  CD4900 CALL 0049H 


A sub-rotina 0049H (SKBWAIT, 
pág. 45 do Manual) realiza uma varredu- 
ra no teclado e retorna somente quando 
uma tecla for pressionada, com o valor 
hexadecimal ASCII da tecla apertada no 
Acumulador. 


480F  FES3 CP SS" 

4811  CAIC48 JPZ,481CH 
4814  FE4E CP 'Nº 
4816  CA2448 JPZ4824H 
4819  C30C48  JP480CH 


O grupo de instruções acima proces-. 


sa a resposta do usuário à pergunta 
BASIC (S ou N). Se a resposta for S, 
há um desvio para o endereço 481CH; 
se for N, o desvio é para 4824H. Se a 
resposta for diferente dessas duas, rea- 
liza-se nova varredura do teclado até que 
o usuário tecle uma das letras permiti- 
das. 

Como estamos interessados no Moni- 
tor, vejamos o que acontece quando res- 
pondemos N: 


4824 219048 LD HL,4890H 
4827 220442  LD(4204H),HL 


Estas duas instruções inicializam o 
vetor da tecla BREAK (ver pág. 54 do 
Manual). Assim, quando a tecla BREAK 
for pressionada, haverá um desvio para o 
endereço 4890H. Nele, temos as seguin- 
tes instruções: 


4890 210043 LD HL,4300H 
4893 Es PUSH HL 
4894  CDF801 CALLOIF8H 
4897  C34046 JP 464CH 
E em 464CH encontraremos o se- 
guinte: 
464C  3EQE LD A 0EH 
464E  CDBD46 CALL 46BDH 
4651  3E0OD LD A,0DH 
4653  CDBD46 CALL 46BDH 
4656 €9 RET 


Como você deve se lembrar, a tecla 
BREAK é ativa no Monitor durante o 
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comando de carga de programas da fita. 

Se desejarmos abortar o comando 
de carga, não basta interrompê-lo: é 
preciso desligar também o gravador. A 
rotina 01F8H contém esta função (na 
pág. 43 do Manual, ela está documenta- 
da como SCSOFF). 

Como se retorna ao nível de coman- 
do do Monitor? Simples, carregando-se 
o par HL com 4300H — que, como vere- 
mos, é o entry-point (início de execu- 
ção) do Monitor — e colocando este va- 
lor na pilha (PUSH HL), ao executarmos 
uma instrução RET, o valor contido na 
pilha é colocado no PC (program coun- 
ter, contador de programa) e efetiva- 
mente a execução reinicia-se em: 


4300H 

LD A 0EH 
CALL 46BDH 
LD A,0DH 
CALL 46BDH 


Este grupo faz simplesmente com 
que o cursor esteja ativo na tela e pro- 
voca uma mudança de linha (retomo de 
carro, ODH). A sub-rotina 46BDH, mui- 
to empregada no Monitor, pode ser vis- 
ta na figura 3. Ela utiliza a chamada 


PUSH AF 
PUSH BC 
PUSH DE 
PUSH HL 
CALL 0033H 


POP HL 
POP DE 
POP BC 
POP AF 
RET 





Figura 3 — Endereços dos registros da pilha 
operacional. 


0033H (SVDCHAR) para mostrar no 
vídeo o conteúdo do Acumulador. Co- 
mo esta sub-rotina usa vários registrado- 
res, eles são armazenados na pilha (PUSH 
para serem recuperados depois (POP), 
após o uso da $VDCHAR. 

Prosseguindo com a inicialização, te- 
mos: 


4824  3EBO LD A,B0H 
482C 322340 LD (4023H),A 
412F  C30043  JP4300H 


Novamente o caráter usado como 
cursor é modificado, desta vez para o 
símbolo gráfico representado pelo valor 
ASCII hexadecimal BOH (um bloco grá- 
fico; ver pág. 157, valor decimal 176). 
Em seguida, desvia-se a execução para o 
endereço 4300H, iniciando efetivamente 
a execução do programa Monitor. 


A INICIALIZAÇÃO DO MONITOR 


Como vimos em artigo anterior (ver 
Programas Monitores, MS número 25), 
um monitor precisa de uma área de ar- 
mazenamento para os valores dos regis- 
tros do usuário. Relativamente ao Mo- 
nitor Residente do CP-S00, este arma- 
zenamento é feito por meio da pilha 
operacional (stack). Os endereços estão 


na figura 4. 
HL 






Endereço 


S4DF-54E0 
54E2-54E3 
54E4-54E5 
54E6-54E7 
54E8-54E9 
54EA-54EB 
54EC-54ED 
54EE-54EF > 
54F0-54F1 
54F2-54F3 
54P4-54P5 
54P6-54F7 














Figura 4 — Sub-rotina 46BDH 


Vejamos agora a inicialização do Mo- 
nitor (a listagem completa está na figu- 
ra 5): 


22DF54 
210000 
ED73F654 
31D854 
CDC946 
210043 
220854 
cDacas 
21F548 


LD (54DFH),HL 
LD HL,0000H 
LD (54F6H),SP 
LD SP,54D8H 
CALL 46C9H 

LD HL,4300H 
LD (54D8H)HL 
CALL 464CH 

LD HL,48FSH 
CD4946 CALL 4649H 
211F43 LD HL,431FH 
ES PUSH HL 

3E3E LD A,3EH 
CDBD46 CALL 46BDH 
CDB446 CALL 46B4H 
FE44 cP “D' 

CAs643 Z,4386H 
FE47 “6” 

CA3B44 Z,443BH 
FESA “9 

CAF143 Z,43F1H 
FES2 “R' 
CA4B44 


Z,444BH 
FE53 is 


CA974S Z,4597H 
FE43 cg 
CA2D47 Z,472DH 
FE5S4 “apr 
CAFA46 Z,46FAH 
CD4Cc46 CALL 464CH 
3E3F LD A,3FH 
CDBD46 CALL 46BDH 
co RET 


Figura 5 — Inicialização do Monitor 
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4300  22DF54 LD (54DFH)HL 
4303 210000 LD HL,0000H 
4306  ED73F654 LD (54F6H), SP 
4304  31D854  LDSP,S4D8H 
430D  CDC946 CALL 4669H 


Inicialmente, armazena-se o valor 
contido no par de registros HL nos en- 
dereços 54DF/54E0H para futura utili- 
zação. Em seguida, zera-se o par HL e 
armazena-se o valor atual do ponteiro 
da pilha operacional (Stack Pointer) 
nos endereços 54F6/54F7H (veja na ta- 
bela de endereços da figura 4 que estes 
endereços correspondem, na área de ar- 
mazenamento do usuário, ao registro 
SP). Então, ajusta-se o ponteiro da pi- 
lha para o endereço54D8H, que é a pi- 
lha operacional do Monitor. A sub-roti- 
na 46C9H, chamada logo em seguida, 


46C9 31F654 LD SP,54F6H 
46CC E5 PUSH 
46CD "DES PUSH 
46CF DES PUSH 
46D1 EXX 
46D2 PUSH 
46D3 PUSH 


46D4 PUSH 
a6D5 EX AF,AF” 
s6D6 PUSH AF 


46D7 EXX 
46D8 EX AF,AF” 
46D9 PUSH DE 

46DA PUSH BC 

46DB PUSH AF 

46DC LD A,I 

46DE LD (54E1H),A 
46E1 SUB A 

46E2 EX AF,AF' 
46E3 LD SP,54D6H 
46E6 RET 


Figura 6 — Sub-rotina 46C9H. 


pode ser vista na figura 6. A função bá- 
sica desta sub-rotina é o armazenamento 
dos conteúdos dos registros na área de 
armazenamento do usuário, Isto é feito 
por meio das instruções PUSH, que per- 
mitem o armazenamento na pilha. (No- 
tem que a pilha é ajustada para 54F6H, 
que é o topo da área de armazenamento 
do usuário. Lembre-se de que a cada 
PUSH a pilha desce.) Como o Z80 pos- 
sui dois grupos de registros, as instru- 
ções EXX e EX AF,AF” permitem que 
ambos sejam preservados na área de ar- 
mazenamento. O registro de interrup- 
ções do Z80 também é armazenado. 

A instrução SUB A (no final da sub- 
rotina 46C9H), simplesmente zera o 
Acumulador, já que o subtrai de si mes- 
mo. Antes de retornar, a pilha operacio- 
nal é novamente ajustada, desta vez para 
S4D6H, para que seja recuperado o en- 
dereço de retorno. Você certamente sa- 
be que quando se realiza uma sub-roti- 
na, o endereço de retorno é automatica- 
mente armazenado na pilha, de modo 
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que quando a instrução RET for execu- 
tada (colocando, como sabemos, o valor 
imediato da pilha no contador de pro- 
grama, PC) a execução possa continuar 
sem problemas. 

Note que temos duas pilhas operacio- 
nais; a do usuário (54F6H), onde são 
armazenados os valores dos registros 
pertinentes ao mesmo, e a do Monitor 
(54D8H), necessária para seu perfeito 
funcionamento. 

Continuando, teremos: 


4310 210043 LD HL,4300H 
4313 22D854 LD (54D8H) HL 
4316 CD4C46 CALL 464CH 
4319 21F548 LD HL48FSH 
431C CD4946 CALL 4649H 


48FS OD DEFB ODH 

48F6 4D DEFM 'MONITOR 
VERSAO 1.0 1982” 

490E OD DEFB ODH 

490F 00 DEFB 00H 


Neste grupo de instruções armazena- 
se o valor 4300H nos endereços 54D8/ 
54D9H, para postenior utilização. A sub- 
rotina 464CH apenas ativa O cursor (veja 
o efeito de valor OEH na pág. 159 do 
Manual) e força uma mudança de linha. 
Veja a figura 7 para uma listagem desta 


LD A,0OEH 
CALL 46BDH 
LD A,ODH 


CALL 46BDH 
RET 





Figura 7 — Sub-rotina 464CH. 


sub-rotina. Em seguida, carrega-se o par 
HL com o endereço da mensagem MO- 
NITOR VERSAO 1.0 1982 e chama-se a 
sub-rotina 4649H para exibi-la no vídeo. 
(Note que o byte 00H indica o fim da 
mensagem para esta sub-rotina,) Esta 
sub-rotina chama a de endereço 4657H, 
que por sua vez chama a 46BDH (listada 
na figura 3). Todas são muito simples de 
ser entendidas. (Veja na figura 8 as lísta- 
gens correspondentes.) 


CD5746 CALL 4657H 
3E0OE LD A,0EH 
CDBD46 CALL 46BDH 
3EOD LD A,ODH 
CDBD46 CALL 46BDH 
c9 RET 


LD A,(HL) 

AND A 

RET Z 

CALL 46BDH 

INC HL 
C35746 JP 4657H 





Figura 8 — Sub-rotinas 4649H e 4657H 


As próximas instruções são as seguin- 
tes: 


431F  211F43  LDHL431FH 
4322 Es PUSH HL 
4323 3E3E LD A3EH 
4325  CDBD46 CALL 46BDH 
4328  CDB446 CALL 46B4H 


O endereço 431FH é o ponto de re- 
entrada no loop de comandos. Este va- 
lor é colocado na pilha para que o retor- 
no a este ponto de reentrada possa ser 
feito com uma simples instrução RET, 
como veremos adiante. Carregando o 
Acumulador com 3EH, que nada mais é 
que o símbolo > ,e chamando a sub- 
rotina 46BDH, exibimos no vídeo o si- 
nal que indica o estado Monitor Ativo, 
isto é, que o Monitor está pronto a re- 
ceber comandos. E a sub-rotina 46B4H 
é a encarregada de aguardar o comando 
do usuário. (Veja na figura 9 a listagem 
desta sub-rotina.) Ela utiliza as sub-roti- 


PUSH. HL 
PUSH DE 
PUSH BC 
CALL 0049H 
POP BC 

POP DE 

POP HL 
PUSH AF 
PUSH BC 
PUSH DE 
PUSH HL 
CALL 0033H 
POP 

POP 

POP 

POP 

RET 





Figura 9 — Sub-rotina 46B4H. 


nas SKBWAIT e SVDCHAR para aguar- 
dar um caráter do teclado e exibi-lo no 
vídeo. 

Obtida a entrada do usuário (um dos 
comandos disponíveis do Monitor) as 
instruções a seguir — um grupo de ins- 
truções compare/desvie — processam a 
entrada do usuário: 


432B  FE44 CP 'D' 

432D  CA8643 JPZ,4386H 
4330  FE47 
4332 CA3B44 JPZ443BH 


4335  FE4A Er 

4337 CAFI43 JPZ43FIH 
4334  FE5S2 CP 'R' 

433C CA4B44 JPZ,444BH 
433F  FES3 rs 

4341  CA9745 JPZ4597H 
4344  FE43 CP T 

4346  CA2D47 JPZ472DH 
4349  FES4 Cr 

434B  CAFA46 JPZ46FAH 
434E  CD4046 CALL 464CH 
4351  3E3F LD A,3FH 
4353 CDBD46 CALL 46BDH 
4356 €9 RET 
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A identificação do comando teclado 
pelo usuário é muito simples. Se a com- 
paração é verdadeira, o flag Z é setado 
(Z=1) e há desvio para o endereço cor- 
respondente. Sumarizando, temos: 


3494H, obterá as seguintes instruções, 
entre outras: 


3494 DBF4  INA(F4H) 
3496 00 NOP 
3497 CD8D02 CALL 028DH 





O fato mais importante é que após o 
chaveamento são executadas as instru- 
ções localizadas entre 3496H e 34A1H 
e nestes endereços estão os conteúdos 
oriundos da parte chaveada da EPROM, 
que diferem do conteúdo da parte nor- 


& SOLUÇÃO NÃO É PROBLEMA & 


Comando Endereço de Execução Compare com os mesmos endereços my qa EPROM e que carregam o con- no a 
D 4386H na figura 1 e você notará que são dife- ieúdo da parte chaveada a partir do en- [HI IM Uh H| 0 didi) 0) f Sel 'O HIJH] 
pre rentes. Se examinar a partir do endereço dereço 4300H, onde encontramos o Mo- y 
R 444BH PRA, ORAR nitor e parte da rotina de inicialização. , x . 
S 4597H 4796 210030 LD HL3000H Desta forma, procuramos mostrar no TIN MIN | SO | dl ld me | 
C 472DH 4799 110043 LD DE,4300H desenrolar deste longo artigo, e de uma a 
T 46FAH 479C 010008 LD BC,0800H maneira bem simples, todo o processo 


Se o comando solicitado pelo usuário 
não é nenhum dos comandos do Moni- 
tor, chama-se a sub-rotina 464CH para 
mudar de linha e carrega-se o Acumula- 
dor com o símbolo ? (hexadecimal 3F), 
que em seguida é exibido no vídeo pela 
sub-rotina 46BDH, indicando que o 
Monitor não entendeu o comando. Com 
a instrução RET, retorna-se ao loop de 
comando, em 431FH. 


COMENTÁRIOS FINAIS 


A rotina de inicialização mostrada na 
Figura 1 e comentada no texto é aquela 
realmente executada pela UCP durante 
o processo. Se você usar um programa 
disassemblador a partir do endereço 





CONTABILIDADE 





479F EDBO LDIR 


E outras instruções que não interes- 
sam no momento. A explicação é a se- 
guinte: quando a instrução IN A(F4H) 
é executada, chaveia-se a EPROM cor- 
respondente à parte da memória ROM 
compreendida entre os endereços 
3000H e 37FFH, e um novo conjunto 
de instruções fica disponível nestes en- 
dereços. 

Note que as instruções localizadas a 
partir do endereço 4796H estavam lo- 
calizadas a partir do endereço 3496H da 
parte chaveada da EPROM. Porém, co- 
mo foram carregadas a partir do endere- 
ço 4300H, elas agora se localizam a par- 
tir do endereço 4796H (a diferença é 
1300H). 


de inicialização do CP-500, até que o 
Monitor esteja no modo ativo. 

Antecipo minhas escusas por qual- 
quer imprecisão técnica que tenha sido 
cometida em função da simplicidade 
com que foram abordados vários tópi- 
cos. Quaisquer comentários serão bem 
recebidos e podem ser enviados para a 
Caixa Postal 7 — CEP 38300, Ituiuta- 


ba, MG. HA 





Maurício Baduy é engenheiro eletrônico 
formado pela Escola Politécnica da USP, em 
1976. É professor de Introdução à Computa- 
ção na Faculdade de Engenharia de Ituiuta- 
ba, MG, além de ocupar o cargo de sócio-ge- 
rente da firma mineira Sigma — Sistemas e 
Computadores Ltda. 





QUE TAL TER O BALANCETE DE SUA EMPRESA 
EM MENOS DE UMA HORA ? 


A Nasajon Sistemas, uma empresa especializada no 


Temos também software para as áreas de faturamento, crediário, 


CP-200 com 
SPEED 


LINGUAGEM BASIC 

16 K DE MEMÓRIA 
VELOCIDADE DE 
TRANSFERÊNCIA 14 VE- 
ZES MAIS RÁPIDA 


MICRO: 


MODULAR 

LINGUAGEM BASIC 

48 K DE MEMÓRIA 
COMPATÍVEL COM 
SOFTWARE DO CP-500 


IMPRESSORA: 


LINGUAGEM BASIC 
48 K DE MEMÓRIA 
ATÉ 4 DRIVES 


SAÍDA PARALELA SE- 


RIAL 


E 


VELOCIDADE 100 CPS 
MATRIZ9x7 
INTERFACE: 
PARALELA 

SERIAL 


TRAÇADOR 
GRÁFICO 


contas a pagar /receber, folha de pagamento, controle de estoque, mala 
direta e muitos outros. 


LINGUAGENS COBOL, o sP 
BASIC E FORTRAN MATRIZ 7x9 MATRIZ 7x9 o a E TRACAD 
64 K DE MEMÓRIA 132 COLUNAS INTERFACE: iai 


Programa Diskette (Cr$) DUAS UNIDADES DE ORIGINAL +5 CÓPIAS PARALELA, o o tr 
DISCO SERIAL 


VELOCIDADE 130 CPS VELOCIDADE 200 CPS 


desenvolvimento de programas para 
microcomputadores dos tipos DGT 1000, CP 500, 
D 8002, TRS 80, NAJA, JR e outros, oferece no 
mercado um sistema para Contabilidade com 








capacidade de: Controle de Estoque 165.000,00 | 
* 1000 lançamentos por mes. | Mala-Direta c/Ed. Texto 210.000,00 
* 300 contas em cinco níveis. Contas pagar /receber 125.000,00 
- Históricos padronizados. Tesouraria ( C /Saldo Bancário) 125.000,00 
- Emissão de diário, razão, balancete mensal Fra E 247.000,00 
min. de Imóveis 455.000,00 | 
e balanço geral. a a L. ii ACESSÓRIOS APROVEITE! 
Emissão de balancetes de verificação. i 
Você encontra esses e outros programas em nossos revendedores 
Extrato de contas e outros. credenciados. 


Com esse software da Nasajon Sistemas você verá SOFTWARE 9 MESAS 9 DIS PROMOÇÕES ESPECIAIS & 
como é fácil obter o balancete de sua empresa em 
menos de uma hora. 

Consulte a Nasajon Sistemas. Ou será que sua 


empresa vai continuar correndo o risco de errar? 


QUETES º ARQUIV e 
oa FINANCIAMENTO € LEA- 





FORMULÁRIOS CONTI. 


filcres 


Filcres Importação e Representações Ltda. 
Rua Aurora, 165 — CEP 01209 — São Paulo — SP 
Telex 1131298 FILG BR — PBX 223-7388 — Ramais 2,4, 
12, 18, 19 — Diretos: 223-1446, 222-3458, 220-5794 e 
220-9113 - Reembolso — Ramal 17 Direto: 222-0016 — 220-7718 


EEEZErIa ÃO ESPECIAL ' 
as cr$ 250.000,00 


| CONTABILIDADE Apenas 
| 





NUOS 9 ESTABILIZADORES || SING * CONSÓRCIO 9 CAR- 





DE TENSÃO € UNIDADES TÕES DE CRÉDITO: CRED!- 


to fácil de resolver 
os problemas de sua empresa. 


Av. Rio Branco, 45 gr. 1311 
Tel.: (021) 263.1241 
cep 20090 — Rio de Janeiro. 


Software: um jei 


DE DISCO FLEXIVEL SETC. CARD, NACIONAL, ELLO. 





Hinteagoa 








Junte as letras, forme as sílabas e componha uma palavra. Neste programa para 
a linha TRS-80, um aprendizado para as crianças e um desafio para os adultos 








esenvolvido para micros 
compatíveis com o TRS-80 
modelos 1 e Il com 16 Kb 
de RAM, este programa 
proporciona um interessante 
passatempo, tanto para adultos quanto 
para crianças em idade escolar, uma vez 
que ajuda a aprimorar a habilidade de 
soletrar e reconhecer as palavras. 





COMO JOGAR 





Poderão participar do jogo de uma a 
três pessoas. Logo após mostrar as 
instruções, o programa perguntará 
quantos e quais os nomes dos jogadores. 
bem como o tempo que ele deverá 


60 


DEFGHIJKLM 


NOPORSTUV 
WXYZABDE F 
GHIJKLMNO 





Heber Jorge da Silva 


esperar pelas respostas de cada um 
(este tempo é igual para todos). 

Após as perguntas iniciais, aparecerá 
no vídeo um banco de letras escolhidas 
aleatoriamente, do qual cada 
participante deverá tirar. as letras 
necessárias à formação da palavra que 
desejar formar. O objetivo do jogo é 
formar o maior número possível de 
palavras usando as letras que restam no 
banco. 

Para tirar uma letra do banco, o 
jogador deverá fazer uso das setas para 
posicionar o cursor piscante sobre a 
letra desejada e pressionar a tecla 
RETURN, é assim sucessivamente até 
completar a palavra. Se porventura o 





jogador cometer um erro na retirada de 
uma letra, para corrigi-lo basta 
posicionar o cursor onde ela estava e 
digitar novamente RETURN: a letra 
será reposta no banco e a palavra que 
estava sendo formada será descontada 
desta letra. A correção, no entanto, só 
é válida desde que o jogador não tenha 
retirado outra letra após ter cometido o 
erro. 

Uma vez pronta a palavra, o jogador 
deverá pressionar ESPACO para que 
esta seja inserida na sua lista, fazendo 
com que o programa dé a vez ao 
adversário. 

É importante frisar que a operação 
de formação da palavra deve ser 
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Estabilizador Eletrônico 


mini REG 


Proteção ultra-rapida contra rd or 
da tensão da rede em ate + 22º 
estabilizando-a em + 1º 

[OF Ter: [elfo 16 [= 88 = 

e aut 0.25.04,06.08 

e1KVvA 


, Soletrando 


20 == SOLETRANDO 

30 REM == POR HEBER J SILVA - BRASILIA - DF, 

40 REM ========= Ez2su== == 

SO CLEARÍ£OOO: DIMNS(3) +PP$(30,3) MTSCIA, 143 

53 REM num p/ aumentar incidencia de determinada letra no banco, altere L$ 

60 L$="AAAAABCCDEECEEEFGHIIIJKLMNNOO00PGRRSSSTTUULULUVXUYZO:SS=CHR$(I2) 

65 REM uma CLS = string para apagar lista de palavras do video 

70 CL$="":1C1$=CHR$S(32)+CHRS(24)+CHR$S(26):FORI=17015:CL$E=CLE+CISENEXT 

BO CL$=CLS+CHRS(I2) 

20 GOSUBL00:G0TOZ410 

95 REM wma instrucoes 

100 CLSIPRINTOZ6, "mM SOLETRANDO mm“ :PRINTEPRINTOINSTRUCOES +” 

140 PRINT” O objetivo deste jogo e*' formar o maior numero possivel de” 

120 PRINT“palavras. Os jogadores poderao combinar que tipo de palavras es” 

130 PRINT“tarao valendo. Por exemplo, nomes de frutas, peixes, times,etc.” 

140 PRINT” Para formar a palavra, o jogador devera" usar as SETAS pa-” 

150 PRINT“ra posicionar o cursor sobre a letra desejada e teclar RETURN.” 

160 PRINT Quando terminar a palavra, devera" teclar ESPACO para que a pa” 

170 PRINT“lavra entre na sua lista. Se errar uma letra, o jogador devera'” 

180 PRINT“posicionar o cursor onde ocorreu o erro e teclar RETURN.“:PRINTO 0 
jogador deve ser rapido ao formar a palavra pois o jogo“:PRINT“e' CONTRA O REL 

06101...” 

190 PRINT“(< Sempre que teclar H, o jogador podera'rever estas instrucoes )“:PRIN 

T"TECLE QUALQUER TECLA PARA CONTINUAR”; 

200 IFINKEY$S=““THENZODELSERE TURN 

205 REM mw» captando numero de jogadores 

210 CLS: INPUT"QUANTAS PESSOAS VÃO JOGAR (1-3) “5N 

Ras REM “w* captando nome dos Aa parede e tempo de espera 
20 FORV=STON:SPRINTONome do jogador” SINPUTNSCV)SPRINTEINEXTIPRINTE INPUT" Quanto 
“tempo (em segundos) cada jogador At por jogada “;TL:RANDOM 

REM “»* formando o banco de letras (matriz 15X15) 

FORL=0T014:FORC=0TO14 

MTECL,C)=MIDS(LS,RND(LENCLS)), 1L)2NEXTC,L 

REM mes imprimindo o banco de palavras no video 

CLS:FORC=0TOL4:PRINT:FORL=0TOL4:PRINTHTS(L,C);SS;INEXTL,C 

260 CE=CHRECÍPL)SDS=CHRE(C140)2PC=64:HH=D!VV=0IP=1 

265 REM uuesx rotina principal 

270 FORV=1TON 

280 PRINTOO,N$S(V)”, e' a sua vez. ..“s 

PPS(P,V)=PEIPE=""INEXTIP=P+1:G0T0270 

285 REM ves limita acao horizontal do cursor 

290 IFVVCOTHENVU=D:PC=PC+SGELSEIFVV)LATHENVU=Í 4:PC=PC-64 

295 REM emu limita acao vertical do cursor 

300 IFHH<OTHENHH=0:PC=PC+2ELSEIFHH)14THENHH=14:PC=PC-2 

340 TS=INKEYS:IFTS="“THENGOSUB4S0: IFTI<LOTHENP$S="" 3 RETURN 

315 REM vem seta para cima 

320 IFTS=CHRSECPLISPRINTOPC,MTSCHH, VV) E VU=VV-Í EPC=PC-64:60T70290 

325 REM vem seta para baixo 

330 IFTS=CHRSCLO)PRINTOPC,MTSCHH, VV); IVV=Vy+sSPC=PC+64:GOTOZP0 

335 REM une seta “a esquerda 

340 IFTS=CHRSCB)PRINTIPC,MTECHH, VV); 2HH=HH-1L:PC=PC-2:G0TO2P0 

345 REM mem seta '*a direita 

350 IFTS=CHRSCDIPRINTOPC,MTSCHH, VV); 3HH=HH+1L3PC=PC+22:G0TO2P0 

355 REM se» H ou h, para instrucoes 

360 IFTS=CHR$C72)0RTE=CHR$(104)THENGOSUBL OO: CLS:IFORC=0TOL4:PRINT:IFORL=OTOLASPRIN 

IMT$(L,C);5S$;:NEXTL,CIPRINTOO,NS(V)” e” a sua vez...“ ;IPRINTOP92,PS;:GOSUB4LO 

365 REM “eu corrige escolha de letra errada 

370 IFASCCMTECHH, VV) ))PSTHENIFTE=CHRS(13)THENIFLEN(PS)SOTHENMTSCHH, VV) =RSIPRINTO 

Gs IPESLEFTSCPS,LENCPS)-1L)3PRINTOAPPZ+ALENCPS),5SS;:GOTOZ9OELSEPRINTOPC,CS; 

375 REM ses tecla return 

380 IFTS=CHRECLI)PS=PS+MTECHH, VV) FPRINTOPPO, PS; SRS=MTSCHH, VV) IMTECHH, VV)=DS:PRIN 

T9PC,MTSCHH, VV); 2GOTOZP0 

385 REM “sw tecla espaco - so" vale palavra c/ 3 letras ou mais 

390 IFTS=CHR$S(32)ANDUEN(PS))2RETURN 

400 G0TO290 

405 REM mem imprime lista de palavras dos jogadores 

410 PRINTOIZ, uma PALAVRAS DE CENSCV)GO mun”, 

420 I=98:FORP=1TOLS:IFPPSCP,V)="“THENRETURNELSEPRINTOL,PPSCP,V);rI=I+6421FI>9P94T 

HEN430ELSENEXTIRETURN 

430 1=112:FORP=16TO30O:IFPPSCP,V)="“THENRE TURNELSEPRINTOL,PPSCP,V);:I=I+642IFIDÃLO 

OSTHENRE TURNELSENEXTIRETURN 

435 REM su apaga lista de palavras 

440 FORA=I0TO62:PRINTOA, CLS; :NEXTIRETURN 

445 REM “uu pisca cursor 

450 FORT=1TOZO:PRINTOPC,CS;:PRINTOPC,MTSCHH, VV); INEXTIPRINTOLOL SS, USING HHNNNT TO 

p3T2=T2-13RETURN 


bow 
QOuoo uau: 


NM 


< 


ST2=INT(TIN1,8):GOSUB440:GOSUB4L0:GOSUB2POD: 





executada no tempo estabelecido no 
início do programa (na base do vídeo 
aparece um cronômetro que vai fazendo 
a contagem regressiva). Se um jogador 
não conseguir terminar a palavra antes 
de esgotado o tempo, esta será anulada e 
a vez será dada ao próximo jogador. 
Portanto, na sua vez, tente ser rápido na 
decisão da palavra que quer formar e 
mais rápido ainda na localização das 
letras que a comporão. 


CONSIDERAÇÕES 


Embora o programa esteja todo 
comentado através das instruções REM, 
cabem aqui algumas considerações. 

O que determina a incidência das 
letras no banco é a string LS, na linha 
60. Para aumentar ou diminuir a 
ocorrência de determinada letra, é só 
alterar o valor desta string. 

Durante a execução do programa, a 
qualquer momento, as instruções 
mostradas no início poderão ser revistas, 
bastando.apertar a tecla H. Enquanto 
isso, o contador de tempo ficará parado 
e assim, ao voltar das instruções, O 
programa reiniciará a execução no 
ponto exato onde foi interrompida, não 
havendo prejuízo para o jogador. 

Sempre que fór dada a vez a um 
jogador, as palavras já formadas por este 
serão listadas no vídeo, ao lado do 
banco de letras. O programa está 
orientado para não aceitar palavras com 
menos de três letras, porém fica por 
conta de cada adversário a aceitação da 
validade das palavras formadas pelos 
outros. 

Para ganhar tempo de teclagem e 
execução, as linhas com instruções REM 


não devem ser digitadas. a 





Formado em Administração de Empresas pela 
UDF, Heber Jorge da Silva trabalha atualmen- 
te na Telebrasília, onde exerce atividades liga- 
das à programação de microcomputadores. 
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Proteção integral para o seu Micro 


Gerador Eletrônico 


GERATRON 


Quando a rede ele tar GERATRON 
continuara ali n 3 MICrO COMO Se nada 
houvesse aco ra 

[OF Ter: [elfo F: To [86 [0 

continuamente 

e 500 VA de pico 

Bateria interna 
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de 90 minutos 
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NO GIRA 


Linha Especial para Micros 
Proteção completa para o seu micro 
mantendo a alimentação altamente 
estavel e sem interrupção Forma de 
onda senoidal Capacidades de 025,04 
0.6, 1,15.2.5.35e 5 KVA. Opera com 
quatro baterias comuns de 12 volts 
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Analise em gráficos de titulação o comportamento de sistemas ácido 
forte-base forte e vice-versa no seu HP-85 








Ácidos e bases: 
análise em gráficos 





Rodrigo Leygue-Alba 
Mauro Mandelli 





objetivo básico deste artigo é fornecer aos 
interessados, especialmente aos da área de Química 
Analítica, uma forma rápida e precisa de efetuar 
levantamentos das curvas de titulação por 
neutralização em métodos computacionais. Além dos motivos 
pedagógicos demonstrativos que ensejam a utilização do 
programa, este servirá também para fornecer subsídios a serem 
levados em consideração, quando forem tomados os dados 
experimentais de titulação. pa 
Para um químico analítico, familiarizado com análise do 
comportamento de sistemas ácido forte — base forte e 
vice-versa, não é difícil imaginar o tempo requerido para os 


+ 


a UN 


a A E | 


2a ZA 49 5a EB PA ga aB 
Figura 1 
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levantamentos experimentais de curvas de titulação. 
Considerando também a necessidade de dispor de aparelhagem 
adequada (pH-metro, microbureta etc.), constata-se que O 
tempo dispendido para tais procedimentos é grande. Daí a 
importância deste programa. 


SISTEMAS ÁCIDO-BASE 


O comportamento de sistemas ácido-base, conhecido 
também como volumetria de neutralização, é um método de 
análise baseado na reação entre ions (H30*) e (OH-), 
produzindo uma neutralização do componente titulado. 


vol.m] 
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Figura 3 


Então, se é efetuada uma reação de um ácido forte 
monoprótico com uma base forte, o número de equivalentes 
do íon Hº) vai sendo diminuído por um número semelhante 
de equivalentes da base adicionada, seguindo a reação: 


E a on = Ho 


Esta neutralização finaliza num ponto onde o número de 
equivalentes do ácido é exatamente igual ao número de 
equivalentes da base. Este ponto é conhecido como ponto de 
equivalência e é medido na escala de pH. 

Construindo-se os gráficos da relação entre o pH e o 
volume adicionado do titulante, é possível obter as chamadas 
curvas de titulação, as quais permitem localizar o ponto de 
equivalência de um determinado sistema ácido-base. 

O nosso programa, escrito em linguagem BASIC, possibilita 
justamente levantar gráficos de titulação de ácido adicionado 
à base, ou mesmo base adicionada ao ácido. É importante 
ressaltar que os ácidos e bases deverão ser do tipo forte, ou 
seja, ambos de total dissociação. 

Pode ser observado na figura 1 que, em torno do ponto 
de equivalência, existem diversas linhas retas com inclinações 
diferentes. Isto ocorre devido à diminuição do poder de 
resolução existente na mudança de pH, à medida que o 
incremento de volume do titulante aumenta. Este 
comportamento é verificado também na prática, onde o 
volume de incremento do titulante é reduzido ao se aproximar 
do ponto de equivalência. 

Visto que, no programa proposto, o incremento de volume 
do titulante é uma constante no decorrer do levantamento da 
curva de titulação, sugeré-se que, para altas resoluções, os 
“e gi de volume sejam os menores possíveis (figuras 
2e3). 

O programa prevê uma possível superposição de gráficos 
a fim de facilitar análises comparativas entre diversas curvas 

e 
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““Qritron 


agora “falam” português 
com todos os acentos e 
caracteres especiais: 
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Os computadores tipo UNITRON e impressoras vendidas 
na SACCO Computer Store, agora geram e imprimem textos 
com todos os sinais de acentuação e os caracteres especiais 
da lingua portuguesa, através de um dispositivo eletrônico de 


nome IVANITA. Portanto, eles já “falam” e “escrevem” corre- 
tamente em português. 








Este dispositivo permite a plena utilização de muitos progra- 
mas, em especial os “Processadores de Texto”, e foi desen- 
volvido para profissionais, empresas e todos aqueles que ne- 
cessitam de textos precisos e corretamente escritos, tais co- 
mo: advogados, engenheiros, médicos, escritores, adminis- 
tradores, etc. 


Se o seu UNITRON, ainda não tem IVANITA, consulte-nos. 
Ele vai sair da SACCO Computer Store falando e escrevendo 
em português com todos os acentos e cedilhas necessários. 


SBLCCO 


computer store 
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ÁCIDOS E BASES: ANALISE EM GRÁFICOS 
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E acao = 
N. M. Rodrigo Leygue-Alba é mestre em Química Analítica pela 


UNICAMP e professor da Universidade de Caxias do Sul - RS. É também 
orientador de Iniciação Científica pelo CNPq e Fapergs. 


Mauro Mandelli é aluno do curso de Engenharia Química na Universi- 
dade de Caxias do Sul e bolsista de Iniciação Cientifica do CNPq. 
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O que um microcomputador pode fazer por um radioamador? 
Muito mais do que imagina a nossa vã filosofia... 








O micro no shack 
o radioamador 


ara o radioamador de algumas 

décadas atrás, o ideal da cons- 

trução caseira de seu próprio 

rádio constituía-se num dos 
pontos máximos de sua capacitação téc- 
nica. Hoje, os novos equipamentos de 
rádio são tão sofisticados que não é mais 
possível atingir, com a construção casei- 
ra, O mesmo patamar técnico oferecido 
pelos produtos industrializados. 


Em cada equipamento de rádio lan- 
çado no mercado podemos encontrar 
uma gama cada vez maior de caracte- 
rísticas operacionais, obtidas a partir de 
modemos circuitos integrados. Além 
disso — e este é o assunto principal deste 
artigo —, não há como negar que o casa- 
mento da microcomputação com o ra- 
dioamadorismo já se realizou há muito 
e seus laços parecem ser do tipo a moda 
antiga: absolutamente indissolúveis. 


Quando falamos em radioamadoris- 
mo e microcomputação não estamos 
querendo chamar sua atenção para a 
engenharia interna computadorizada de 
um transceiver (transmissor + receptor), 
mas sim para dois objetos distintos: um 
rádio e um microcomputador que, com 
certeza, já são seus conhecidos. 

A partir deste ponto, mesmo que vo- 
cê não seja radioamador e ainda não sai- 
ba sequer operar um micro, sua curiosi- 
dade e interesse pelo tema poderão estar 
desencadeando uma cascata de indaga- 
ções do tipo: 


e Pode-se juntar um rádio e um micro? 
e Que coisis podem ser obtidas ope- 
rando-se os dois juntos? 

e Quem ajuda quem? O rádio serve 
ao micro ou o micro serve ao rádio? 

e O rádio entende a linguagem do 
micro? 

e Tem gente no Brasil operando rádio 
através do micro? 

e Quem já tem um micro tem vanta- 
gens entrando para o radioamadorismo? 
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e Quem já é radioamador tem vanta- 
gem em comprar um micro? 
e É muito difícil para um radioama- 
dor padrão médio usar um micro em seu 
shack (sala do rádio)? 

Como vemos, é possível formar um 
rosário de indagações e todas elas muito 
pertinentes... 





GRANDES POSSIBILIDADES 





A disseminação dos microcomputa- 
dores atingiu muitas áreas da atividade 
humana e dentre elas o mundo das co- 
municações radioamadorísticas. Para 
aqueles que já são radioamadores pode- 
mos dizer que o micro pode prestar in- 
críveis serviços nos limites de um shack. 
Por exemplo: 

e administrar o arquivo dos QSO (con- 
tato entre duas estações); 

e editar cartões QSL (contato confir- 
mado ) via impressora; 

e fazer os logs (relatórios) dos contes- 
tes na hora em que estão se realizando, 
indicando até os comunicados repetidos; 
e durante um QSO, contar tudo sobre 
todos os comunicados anteriores já rea- 
lizados com aquele colega; 

e auxiliar, como o mais eficiente pro- 
fessor, sua aprendizagem de telegrafia 
(CW); 

e facilitar seus estudos de radioeletri- 
cidade; 

e calcular qualquer tipo de antena e 
indicar para onde você deve apontar 
a sua nos comunicados que realiza; 

e calcular o rastreamento dos satéli- 
tes de comunicação radioamadorística; 
e fazer a predição da propagação ionos- 
férica (MUF = Maximum Usable Fre- 
quency) para suas tentativas de “DX” 
etc. 

Um micro razoável faz tudo isso e 
muito mais: colocando-o no ar, através 
de uma interface e de seu rádio, você 
terá a grande ventura de conhecer o 


mundo maravilhoso do RTTY (radio- 
teletipo). Vejamos algumas dentre as vá- 
rias coisas que você poderá fazer neste 
campo: 

e receber o sinal de Código Morse em 
sua forma audível e transportá-lo para 
o vídeo do micro com a mensagem de- 
codificada para sua forma escrita. O 
sentido inverso também é possível, ou 
seja, você pode teclar uma mensagem no 
computador e o rádio colocar esta men- 
sagem no éter na forma tradicional do 
“DI-DA-DI-DA” da telegrafia; 

e a mesma operação pode ser realizada 
utilizando-se o Código Baudot (o mes- 
mo empregado pelo telex), e então es- 
taremos fazendo RTTY; 

e sentar-se em frente ao vídeo e ver 
desfilar as mesmas notícias que naquele 
exato momento as empresas jornalísti- 
cas e de broadcasting estão recebendo; é 
possível gravar estas notícias e reproduzi- 
las por escrito sempre que desejarmos; 

e ligar e desligar, de sua sala, rádios e 
micros em qualquer parte do mundo. De 
sua casa você faz consultas na memória 
de um micro situado em Tóquio, por 
exemplo, podendo deixar (devidamente 
conferido) qualquer recado para seu 
proprietário se ele não estiver em casa 
no momento. 

Estas são apenas algumas possibilida- 
des. Várias outras existem, inclusive 
aquelas que você poderá criar um dia. 
De minha Párte, tenho a convicção de 
que, antes de se esgotar a próxima déca- 
da, em toda estação de radioamador exis- 
tirão, lado a lado, um microfone e um 


microcomputador. 
Se você entusiasmou-se com estas 
idéias, o que está esperando... E 





Dirceu Pivatto da Silva — PY3I1T é radioama- 
dor classe A e consultor da Fundação para o 
Desenvolvimento de Recursos Humanos “'92 
RS. 
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Se calcular uma raiz quadrada nunca foi seu forte, aqui está a sua chance 
de aprender: este programa fará de seu micro Sinclair um paciente professor 





Raiz quadrada? 


O micro ensina 


ste programa é uma verdadeira 
aula de matemática, ensinando, 
especificamente, um método 
para calcular a raiz quadrada de 
um número inteiro ou decimal, desde 
que não seja negativo. Foi escrito 
para os micros compatíveis com o 
Sinclair, podendo ser operado tanto 
em SLOW quanto em FAST. 

Durante a execução, o programa 
fornecerá a teoria e as instruções 
necessárias para o cálculo da raiz 
quadrada. Um número é sorteado e o 
cálculo é feito passo a passo, ou seja, 
cada operação efetuada é mostrada no 
vídeo acompanhada de um texto 
explicativo. O ritmo é o aluno quem 
escolhe, bastando acompanhar 
atentamente o processo e tentar depois 
fazer tudo sozinho para fixar O 
aprendizado. 

Os números sorteados variam de 3 a 
6 algarismos para os inteiros e 3 
algarismos para os decimais, cujas raízes 
são calculadas com erro menor que 
0,001. 


Francesco Tropeano é formado em Matemáti- 
ca pela Fundação Santo André e fez curso de 
COBOL. 


Francesco Tropeano 








Raiz Quadrada 


5 PRINT 

10 PRINT "NESTE PROGRAMA VOCE 
VAI APRENDER" 

15 PRINT 

20 PRINT "A CALCULAR RAIZ QUAD 
RADA DE NU-"" 

22 PRINT 

23 PRINT "MEROS INTEIROS E DEC 
IMAIS" 

25 GOSUB 400 

26 CLS 

27 PRINT 

28 PRINT "DADO UM NUMERO B QUA 
LQUER,  CHA-MA-SE C RAIZ QUADRAD 
A DE B QUAN-DO C ELEVADO AO QUAD 
RADO E IGUALA B." 

30 PRINT 

31 PRINT 

32 PRINT "NO CAMPO DOS REAI 
S NAO EXISTERAIZ QUADRADA DE NUM 
EROS NEGATI-VOS." 

33 PRINT 

35 PRINT "PARA O CALCULO DA RA 
IZ QUADRADASEGUIREMOS UMA SEQUE 
NCIA DE PAS-SOS." 

37 GOSUB 400 

38 CLS 

40 GOTO 137 

52 LET N$="" 

54 LET I=INT (RND*4)+1 

56 FOR I=I TO 6 x 

57 LET N$=STR$ INT ((RND*9)+1) 
+N$ 

58 NEXT I 

60 LET I=LEN N$ 








62 GOSUB 442 

65 CLS 

70 GOSUB 200 

73 GOSUB 400 

74 CLS 

76 GOTO 130 

80 PRINT "A RAIZ QUADRADA DE U 
M NUMERO DE-CIMAL TEM A METADE D 
AS CASAS DE-CIMAIS DO RADICANDO. 
" 


re." 
82 PRINT "PARA NUMEROS QUE NAO 
TEM RAIZESEXATAS (RESTO DIFERE 
NTE DE ZERO)NOS PODEMOS TER MAI 
OR APROXIMA-CAO TENDO TANTAS CA 
SAS DECIMAISQUANTO DESEJARMOS",, 
, "NESTE CASO BASTA ACRESCENTAR 
AONUMERO O DOBRO DAS CASAS DESEJ 
A-DAS." 
83 GOSUB 442 
84 LET N$="" 
86 FOR I=1l TO 3 
88 LET N$=STR$ INT ((RND*9)+1) 
+N$ 
89 NEXT I 
90 LET I=LEN N$ 
93 LET N$=N$(1)+"."+N$(2 TO 3) 
95 GOSUB 400 
97 CLS 
99 PRINT "RAIZ QUADRADA DO NUM 
ERO: ";N$ 
100 PRINT 
102 PRINT "COM ERRO MENOR QUE 0 
.001" 
103 PRINT 
105 PRINT "CONFORME A REGRA NE 
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STE CASO DE-VEMOS ACRESCENTAR QU 
ATRO ZEROS" 
107 LET N$=N$+"0000" 
08 LET 1=7 
PRINT "NUMERO DO RADICANDO= 


GOSUB 400 

CLS 

LET N$=N$ (1) +N$(3 TO 8) 
GOSUB 200 

LET J$=J$(1)+"."+J$(2 TO ) 
LET N$=N$(2)+"."+N$(3 TO 4) 
CLS 

PRINT "RAIZ QUADRADA DO NUM 
V5N$,,"=";)S 

PRINT 

135 PRINT "INICIE O PROGRAMA. TE 
NTE RESOLVERO EXERCICIO SOZINHO, 
SE TIVER DU-VIDAS DE  CONTINUIDA 
DE ATE TIRA-LAS." 

136 PRINT 

137 PRINT "DIGITE:",,"1l - PARA 
INTEIROS","2 - PARA DECIMAIS","3 

- INICIO DO PROGRAMA" 

138 INPUT A$ 

139 CLS 

142 IF A$="3" THEN RUN 

143 IF A$="2" THEN RUN 80 

144 RUN 50 

200 REM "RADICANDO" 

205 PRINT "RAIZ QUADRADA DO NUM 
ERO: ";N$ 

210 PRINT AT 3,4; "(dinininiaiaiaininhaiaia) 
demos |" 

215 PRINT AT 4,1; Ra E 4,19 
, & 4 :AT 5» 1 , "E" ; AT 5 + 19; pe 
a :AT 6,15 TE)" 

18 FOR N=6 TO 15 

a PRINT AT N,19;"E 

222 NEXT N 

224 PRINT AT 4,6;N$;AT 4,20;"RA 
EB” 

226 GOSUB 400 

240 LET R=I-INT (1/2) *2 

241 PRINT AT 17,0;"-DIVIDIR OS 
ALGARISMOS DO NUMERO EM PARES DA 

DIREITA P/ESQUERDA" 

242 IF R=0 THEN GOTO 248 

244 LET N$="0"+N$ 

246 LET I=I+1 

248 LET M$=N$( TO 2)+"."+N$(3 T 
O 4) 

250 IF I=4 THEN GOTO 258 

252 LET M$=M$+"."+N$(5 TO 6) 

254 IF I=6 THEN GOTO 258 

256 LET M$=M$+"."+N$(7 TO 8) 

258 PRINT AT 4,6;M$ 

260 GOSUB 400 

265 PRINT AT 17,0;"-SUBTRAIR DO 

PRIMEIRO PAR O MAI- OR QUADRADO 

PERFEITO POSSIVEL." 

266 FOR J=1 TO 9 

268 LET S=VAL N$( TO 2)-J*J 

270 IF S=0 OR (VAL N$( TO 2)-(J 
+1) *(]J+1))<0 THEN GOTO 274 

272 NEXT J 

274 LET M$="-"+STR$ (J*J) 

276 PRINT AT B,5S;M$;AT B+1,6;S 

280 GOSUB 400 

282 PRINT AT 17,0;"-RAIZ DESSE 

QUADRADO PERFEITO COLOCA-SE N 
O LOCAL DESTINADO A RAIZ E O DO 
BRO COLOCA-SE ABAIXO" 

284 LET R$=STR$ J 

285 PRINT AT 4,20;" "AT 4,2 
0O;R$ 

290 PRINT AT 6,20; (J*2) 

292 GOSUB 400 

293 PRINT AT 17,0;"-ABAIXA-SE O 

PAR SEGUINTE FOR- MANDO COM O 

RESTO ANTERIOR UM NOVO NUMERO 


“295 LET X=X+2 
296 LET Y=Y+2 
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297 LET M$=STR$ S+N$(Y TO X) 

300 PRINT AT B+1,6;M$ 

305 LET W=LEN M$ 

310 GOSUB 400 

312 PRINT AT 17,0;"-SEPARA-SE O 
ULTIMO ALGARISMO DA DIREITA DO 
NOVO NUMERO COM UMA VIRGULA E D 
IVIDE-SE O QUE FICOU A ESQUERDA 
PELO DOBRO DA RAIZ." 

315 LET X$=M$( TO W-1)+","+M$(W 
) 

320 PRINT AT B+1,6;X$ 

322 LET N=INT (VAL M$( TO W-1)/ 
(J*2)) 

324 GOSUB 400 

325 LET K=J 

326 PRINT AT 17,0;"-0  QUOCIENT 
E APROXIMADO COLOCA- SE A DIREIT 
A DA RAIZ E A DIREI- TA DO DOBRO 
DA RAIZ. 

330 LET J$=STR$ J+STR$ N 

333 PRINT AT 4,20;J$ 

335 LET L$=STR$ (J*2)+STR$ N 
336 LET J=VAL J$ 

338 PRINT AT C,20;L$ 

339 IF N=0 THEN GOTO 472 

340 GOSUB 400 

342 PRINT AT 17,0;"-ESTE MESMO 
QUOCIENTE MULTIPLI- CA-SE PELO 
NUMERO ";L$;" 

344 LET L=VAL L$*N 

346 PRINT AT C,20;L$;"X";N;"=" 
L 

348 LET S=VAL M$-L 

349 IF S<0 THEN GOTO 450 

350 GOSUB 400 

352 PRINT AT 17,0;"-O0 PRODUTO E 
NCONTRADO SUBTRAI-SE DO NUMERO 
FORMADO PELO ULTIMO PAR ABAIXAD 
O: "sM$ 

354 LET B=B+2 

356 PRINT AT B,5;"-":;L 

358 PRINT AT B+1,6;S 

360 GOSUB 400 

370 IF I=X THEN RETURN 

372 LET C=C+1 

374 PRINT AT C,20;(J*2) 

376 GOTO 293 

400 PRINT AT 21,4;"DIGITE A PAR 
A CONTINUAR" 

410 INPUT A$ 

420 IF A$<>"A" THEN GOTO 400 
430 PRINT AT 21,4;" 


440 RETURN 

442 LET X=2 

443 LET Y=1 

445 LET B=5 

447 LET C=6 

449 RETURN 

450 GOSUB 400 

452 PRINT AT 17,0;"-ESSE QUOCIE 
NTE NAO SERVE. DEVE- SE SUBTRAIR 
1 E VOLTAR A MULTI- PLICAR NOVA 
MENTE . 

455 PAUSE 240 

458 LET J$=STR$ K 

460 LET J=VAL J$ 

463 LET N=N-1 

464 PRINT AT 4,20;" 

(20; " ç 

470 GOTO 326 

472 IF X=I THEN RETURN 

473 LET S=S+VAL N$(Y TO X) 

476 PRINT AT 17,0;"-COMO NAO DA 
PARA DIVIDIR ACEI- 'TAMOS O ZER 
O E BAIXAMOS OUTRO PAR. 


477 GOSUB 400 
480 GOTO 293 
485 SAVE "RAIZ2" m 
486 RUN e, 
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EQUIPAMENTOS 





e Tenho um TK 82 e uma fita 
com dois jogos e gostaria de ne- 
gociá-los com um CP-200 e ainda 
dou uma compensação em dinhei- 


ro. Desejo também entrar em con- 


tato com pessoas que possuam o 
micro TK 82. Tratar com Marcelo 
Thomaz, Rua Bauru, 330, V. Lin- 
da -— Santo André, São Paulo, 
CEP 09000, tel.: 412-1972. 


e Vendo: 4 displays LCD para 
relógio; 1 LCD para calculadora; 
um microprocessador Z-80; um Cl 
de 40 pinos com referência trasei- 
ra 8113; esquema do DGT-100; 
catálogos da maioria dos compu- 
tadores brasileiros além de calcu- 
ladoras; uma calculadora Dismac 
musical, xerox do manual do 
Z8000; revistas Nova Eletrônica 
diversas; revistas de eletrônica de 
1954 em diante. Compro expan- 
são de 16 K para Z8000 ou TK 
82, não importando o estado ex- 
terno, apenas o interno. Tratar 
com Dante Eickhoff Caixa Pos- 
tal 68, Três de Maio, Rio Grande 
do Sul — CEP 38910. 


e TRS-80 Pocket Computer 
(Sharp PC 1211). Vendo conjun- 
to com impressora ou somente 
impressora. Pierre, tel.: (011) 
257-6236. 


e Comodore 64/Vic 20. Vendo 
interface para cassete. Tratar com 
Gustavo, fone (011) 460-3208 — 
São Paulo — SP, 


e Vendo NE-Z8000 com expan- 
são de 16 K, pouco tempo de uso, 
Cr$ 100 mil. Tratar com Abelar- 
do; SQN 408 Bloco N apto. 302, 
Brasília. Tels.: (061) 272-0395 — 
234-1331. 


e Vendo cartucho de ATARI 
400/800, modelo CXL4002, nome 
BASIC COMPUTING LANGUA- 
GE, juntamente com o seu ma- 
nual de utilização. E vendo um 
alarme computadorizado para ca- 
sa. O preço do cartucho é Cr$ 
80.000,00 e do alarme CrS 
60.000,00. Os dois produtos são 
importados e estão sendo vendi- 
dos a preço de custo. Falar com 
Claudio Coelho Lima, Avenida Se- 
te, 2901, apt. 1701, tel.: (071) 
247-7181, Salvador, Bahia. 


GARANTA 


SUA MS 


TODO MÊS! 


Se você deseja assinar MICRO SISTEMAS, preencha o 
cupom abaixo (ou uma xerox, caso você não queira 


cortar a revista): 


nome 





empresa 


profissão/cargo..... = 


endereço para remessa... 
cidade... === CoD = 


Assinatura anual 
Micro Sistemas 


Informática & Administração 


estado 


CrS 15.000,00 
CrS 20.000,00 


[] Micro Sistemas+Informática &Administração Cr$ 31.000,00 


Preencha um cheque nominal à ATI Editora Ltda e envie 


para: 


Rua Visconde Silva, 25 — Rio de Janeiro — RJ — CEP 
22281 — tel. (021) 286-1797, 246-3839 e 266-0339. 

Al. Gabriel Monteiro da Silva, 1227 — São Paulo — SP — 
CEP 01441 — tel: (011) 853-3800. 

Seu recibo será enviado pelo correio. 





e Vendo TK82-C com 16 Kby- 
tes, chave inversora de video e 
mais 20 jogos, tudo por Cr$ 150. 
000,00. Tratar com Luiz Carlos 
Fernandes, Rua Atos Damasceno, 
310, CEP 04372, São Paulo, SP. 


e Compramos microcomputado- 
res Apple, com ou sem impresso- 
ra. Interessados favor contactar 
com ECOPLAN, Rua Felicissimo 
de Azevedo, 924, Porto Alegre — 
RS, CEP 90.000, tel.: (0512) 42- 
4821. 


e Troco um Tig-Loader com 
pouquíssimo uso por um joystick 
para TK82-C. Tratar com Fábio 
Almeida Barbosa, tel.: (011) 570- 
2078. 


e Vendo JR Sysdata, seminovo, 
48 Kbytes, Extended Basic, por 
Cr$ 600.000,00 e um vídeo, 
(TV Philco 12 polegadas) por Cr$ 
100.000,00. Tratar com Clóvis pe- 
lo tel.: (011) 440-9688, Santo 
André, SP. 


e Compro um CP-200 ou um 
RINGO sem expansão, de prefe- 
rência ainda na garantia, pelo 
preço de Cr$ 100.000,00 de en- 
trada e seis prestações de Cr$ 
40.000,00 já usado, e se ainda es- 
tiver na caixa fechada, além de 
cem mil dou sete prestações de 
quarenta mil e nota fiscal. Tratar 
com Hênio T. Barros, Rua Silvio 
Romero, 340, Petrópolis, Carua- 
ru, PE. CEP 55100. 


e Compro um CP-200, sem ex- 
pansão, na garantia, com entrada 
de Cr$ 1.000.000,00 e o resto 
parcelado em pagamentos de até 
Cr$ 30.000,00. Escreva para He- 
nio Teixeira de Barros, Rua Sílvio 
de Barros, 340-B. Petrópolis, Ca- 
ruaru, PE, CEP 55100. Obs.: as 
lojas também poderão entrar em 
contato comigo. 


SOFTWARE 


e Vendo software para HP-41C, 
estruturas e análise matricial para 
pórticos, vigas contínuas de até 7 
nós. Entrar em contato com An- 
tonio Vieira Ribeiro, Caixa Postal 
435, CEP 07000, tel. (011) 209- 
7784, São Paulo. 


DIVERSOS 


e Gostaria de comprar MICRO 
SISTEMAS do número dois ao 
nove, desde que em bom estado. 
Tratar com Jefferson da Silva Jú- 
nior, Rua da Palma, 575, apto. 
203, São José, Recife, PE, CEP 
50.000. 


e Gostaria de comprar a MICRO 
SISTEMAS nº 23 pelo preço 
atual e vender o livro “Introdu- 
ção à linguagem BASIC”, de Ro- 
berto Kresch, por Cr$ 4 mil 500. 
Tratar com M. A. da Motta Mo- 
raes, Rua Umanapiá nº 45, Brás 
de Pina, CEP 21011, Rio de Ja- 
neiro. 





e Tradução de literatura técnica 
de microcomputadores e perifé- 
ricos: manuais de instrução de 
equipamentos e de programas, 
guias de usuário, etc. Tenho tra- 
duções prontas de literatura da 
Commodore. Wilson, tel.: 222- 
0902 — RJ. 


e Estou muito interessado em 
programas que digam respeito ao 
radioamadorismo e que sejam 
compatíveis com o D-8001. Posso 
fornecer alguns programas das re- 
vistas “73 MAGAZINE" e “QST”. 
Meu prefixo é PP5-VH e opero 
nas seguintes bandas: 80m, 40m, 
20m, 15m, 10m, 6m, 2m e 70cm. 
Meu nome é Valdemar Hennings 
PP5-VH Caixa Postal 8 — CEP 
89120 — Timbó — SC. 


e Compro livro Inglês/Francês/ 
Português de programas de jogos 
para o TK82-C (16 KB). Tratar 
com João Aluísio Zambano Gar- 
gantini no seguinte endereço: 
Rua Baia, 551 — Vila Marcondes 
— CEP 19.100 — Presidente Pru- 
dente — SP. 


CLUBES 


e O TK CLUBE DE NATAL es- 
tá abrindo os seus arquivos para 
preenchê-los com os dados dos 
usuários de microcomputadores 
da linha Sinclair (TK 82-C,CP-200, 
etc.). Se você possui microcom- 
putadores e deseja intercambiar 
informações e programas, escreva 
para o nosso Clube, Rua Praia de 
Camboinhas, 9115, Ponta Negra, 
Natal, RN, CEP 59000. 


e Desejo entrar em contato com 
Clubes e pessoas que possuam mi 
crocomputadores pessoais. Entrar 
em contato com João Gurmelho, 
Caixa Postal 431, CEP 80.000, 
Curitiba, Paraná. 


e Tenho um CP-200 e gostaria 
de contactar possuidores de TK 
85 e compatíveis. M. A. da Mot- 
ta Moraes, Rua Umanapiá nº 45, 
Brás de Pina, CEP 21011, Rio de 
Janeiro. 


e Estamos fundando o Micro 
Clube do Brasil e nos preparando 
para o lançamento do primeiro 
número de seu Boletim Trimestral 
“Brasil Informático”. A assinatura 
é gratuita basta nos escrever. Rua 
Dep. José Tavares, 236 — CEP 
58100, Campina Grande — PB. 
Enviar correspondência aos cuida- 
dos de João Tomé de Araújo Fi- 
lho. 


e Gostaria de entrar em conta- 
to com pessoas que possuam com- 
putadores da linha Sinclair para 
troca de programas, principalmen- 
te jogos e aplicativos. Tratar com 
Fernando pelo tel.: (011) 543- 
4787 ou escreva para Antonio 
Fernando Cabral, Alameda dos 
Anapurus, 746/apto. 21, São Pau- 
lo, CEP 04087. 
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na linha 70 


Apple, 












50, do 



















4 








rágrafo 


( 


19. do Ciclotron: 
Supere Esta Barra!, 


23, na Seção Con- 
versão: Programe 

em Segred 
linha 270 


Na linha 280 


Na linha 290 


Paddle: Faça Você 
Mesmo, último pa- 
rágrafo da 22 colu- 
na, na observação 


S4, do Penosa Tra- 
vessia, linha 17 


Na linha 34 


Na linha 48 


71, de Um Teclado 
A Moda da Casa, fi- 
gura 2, programa 
Coloca, linha 190 


71, 24 coluna, item 


50, do Inteligência 
Artificial-I, 23 co- 
luna, após o 19 pa- 
















70 PRINTOO,"JOG.1: : 
ita CA da EA 
PRINTOS2,"JOG.2:";J2; 


70 PRINTOO,"JOG. 
das q ia 
PRINTO5S2,"JOG.2:";J2 














270 DATA A,K,B,M,C, 
[E,Z2,F,1,G,H 


L,D,N 






270 DATA A,K,B,M,C,L,D,N 
rB,8,F,L,6G,M 






o no 





































280 DATA H,B,I,A,J,D,K 280 DATA H,G,I,A,J,D 
B,L,E,M,C,N,F,0,B,P,0,0 K,B,.L,E,M,C,N,F,O,R,P,Q 
10,Ry,P +10:0,R, P 
290 PESA. Sp U,T,X,U,T,V,V 290 DATA DT HDTV NV 
- re dr à J, E Pi Ed : As On É qd DR PR 
us moça 
r r r . 


Apple 




















qualquer potenciômetro a partir de 1 


qualquer potenciômetro de 1 kohms Eotime 








17 PRINT" 


*%". 
f 


17 PRINT" ':CHRS M;" "+-CHRS M; 


+ 



























34 PRINT AT A,B;"º"S";AT 
ABS” pa 


34 PRINT AT A,B;"S";AT 
A,B;" " 











48 GOSUB 28 48 GOSUB 29 



























190 PRINT CHRS (4);"BSAV 
E KEYINREDEF,A$0300, 
L$55" 


4) rodar o programa COLOCA (RUN CO- 
LOCA); e responder às perguntas que apa- 
recerão na tela e fornecer um nome à ta- 
bela de redefinições criada... 


190 PRINT CHRS (4);"BSAV 
E KEYINREDEF,A$S0300, 
L$54" 
























4) responder às perguntas que aparecerão 
na tela e fornecer um nome à tabela de re- 
definições criada. ... 











O funcionamento do Minimizador é aná- 
logo, exceto pelo fato de que ele tenta co- 
locar o melhor lance em Beta. 





PROCURE QUEM 
REALMENTE ENTENDE. 


POR QUE NÃO TUDO EM 
UM SÓ LUGAR? 


Microcomputadores, Sotware, Publicações 


4 MICROMAQ 


R. Sete de Setembro, 92 - Lj. 106 ps ; 
Tel.: 22246088 - Rio de Janeiro [EDS Sw El TZ: ERRO ci SRD Cgi de Equipamentos. 
















Linha TRS-80 


Paginando melhor o vídeo 


Na Seção Dicas de MS nº 25, publicamos uma rotina 
para “paginar” o vídeo. Agora apresentamos uma forma 
ainda mais prática para controlar, através do endereço do 
cursor, o número de linhas de uma “página” do vídeo, per- 
mitindo que se passe para a outra “página” do vídeo so- 


DER ET 


Calculadora infalível 


Transforme seu micro numa calculadora e faça cálculos 
matemáticos, científicos e até mesmo financeiros, com esta 


SEL ERILIAET 


Troque os números 


Confunda os amigos do alheio, alterando graficamente 
todos os números do seu programa, sem no entanto alterar 
os valores desses números. Para tal, digite esta sub-rotina 
junto com seu programa principal e RUN 9990, e após al- 
gum tempo dê uma espiada na bagunça que ficou: 


mente quando desejarmos: 































dica que pode ser usada sozinha ou como rotina em seus 
programas: 

10 INPUT AS 

20 CLS 

30 PRINT AS;"=";VAL AS 

40 GOTO 10 


Agora digite RUN e depois que o cursor aparecer, escre- 
va a operação como neste exemplo: 


OPERAÇÃO ENTRADA RESULTADO NA TELA 


10-5 10-5 10-5 =5 
(NEWLINE) 


9990 REM EDSON N YAMADA 

9992 FAST 

9993 LET 1=16514 

9994 LET F=PEEK 16396+256*PEEK | 
6397 

9995 IF PEEK 1=118 OR PEEK 1=126 
THEN LET I=1+5 

9996 IF PEEK 1>=28 AND PEEK I<=3 
7 THEN POKE I,INT (RND*9)+28 
9998 LET I=I1+1 

9999 GOTO 9995 


100 CLS:FOR I = 1 TO 100 
110 PRINT "LINHA";I 
120 IF PEEK( 16416) + 256* 


PEEK( 16417) -—- 153602832 
THEN GOSUB 500 


S, 





130 NEXT TI 

140 END 

500 PRINT "APERTE QUALQUER TECLA 
PARA NOVA PAGINA” 

510 IF INKEYS = "" GOTO 510 

520 CLS:RETURN 


Se você tem pequenas rotinas 
e programas utilitários realmente 
úteis tomando poeira em seus 
disquetes ou fitas cassete, antecipe-se 
aos piratas e trate de divulgá-los. 
Envie-os para a REDAÇÃO DA MICRO 
SISTEMAS-SEÇÃO DICAS: Rua 
Visconde Silva, nº 25, Botafogo, 
Rio de Janeiro-RJ, CEP 22281. 
Não se esqueça de dizer para qual 
equipamento foram desenvolvidos. Desta 
forma, sua descoberta poderá ser útil 
para muitos e muitos, em vez de 
desmagnetizar-se com o tempo em 
suas fitas e disquetes. .. 





Ruben Feffer-SP 





Mas é importante observar duas restrições nesta dica 
contra espiões: não a utilize em programas escritos em lin- 
guagem de máquina e também nunca EDITE uma linha alte- 
rada. Esta dica foi criada a partir da leitura atenta do artigo 
“Escondendo o jogo no TK82-C” (publicado em MS nº 22, 
pág. 36); se houver quaisquer dúvidas, é só consultar o arti- 
go citado. 


PEA 
TD ca 


E o mais interessante é saber que as posições 16416 e 
16417 contêm, respectivamente, o LSB e o MSB da posição 
atual do cursor na tela (memória de vídeo, de 15360 a 
16383); a linha 120 calcula a posição PRINT & , compa- 
rando-a com a posição inicial da linha desejada —832, neste 
caso, e que corresponde à 132 linha. E após imprimir esta 
linha, a sub-rotina da linha $00 imprime uma mensagem na 
linha seguinte e fica aguardando que se pressione qualquer 
tecla para, então, imprimir uma nova “página”. É importan- 
te lembrar que a impressão na 164 linha causa sempre o ro- 
lamento (SCROLL) da tela. 


Raça 


SE y Ne á a 


Linha TRS-80 (1) 


Corrigindo um NEW errado 


Às vezes, por descuido, teclamos NEW em um pro- 
grama em BASIC que queríamos salvar. Para corrigir 
este erro e recuperar o programa, é só ter o seguinte 


“ 


= 
Ê 





ed PES 





EM 


Edson Noboru Yamada-SP 













procedimento logo depois que errar: 

19 — Teclar 'POKE 17130,1º 

2º — Digitar 'SYSTEM' 

3º — Responder ao *? Com '/11395” 

49 — Dar um “LIST” para ter certeza de que o programa 
voltou (nada de dar RUN!) 

SO — Digitar o comando 'SAVE' para gravar no cassete. 











Roberto Quito de Sant'Anna-RJ 





























SCROLL regional 


No artigo “Abrindo espaço na tela” (MS nº 24, 
pág. 28), o autor dá uma dica para aproveitarmos 
as duas últimas linhas do vídeo, afirmando que isto 
é feito apenas trocando a variável DS-FZ, que con- 
tém o valor do número de lirihas em branco na par- 
te inferior da tela (o normal seria 2), para o valor 0. 
Aproveitando estas informações, apresentamos 
este programa, que faz um rolamento dos caracte- 
res somente da metade da tela para cima: 










Aí vai uma dica para aqueles que têm um micro com resolução gráfica 
capaz de executar incríveis desenhos, mas não possuem uma impres- 
sora com recursos gráficos para imprimir seus desenhos artísticos: 







Fernando Guimarães de Lima Silva-RJ 













| 1000 INPUT "DESEJA IMPRIMIR"; RS 
Simulação 1100 IF LEFTS (R$,1) = "N" THEN END 
do 1200 LPRINT TAB(20) "TITULO DO DESENHO" 
1300 LPRINT 













Recuperando fitas de impressora 






































1m ressor 1400 FOR Y=0 TO 47 x 
p é 1500 FOR X=0 TO 127 Se você tem uma impressora e está querendo reduzir o 1 FOR F= , do 352 
gráfica 1600 IF POINT (X,Y) THEN LPRINT "*". ELSE consumo de fitas, veja como é simples recuperá-las: basta 4 PRINT "ED"; 
LPRINT " ". é fazer duas ou três pequeninas aberturas estrategicamente 5 NEXT F | 
é io ia distribuídas no cartucho plástico e injetar pequenas doses 6-POKE 16418,13 E 
1700 NEXT X : LPRINT : SET (0,%) de um lubrificante spray tipo WP 40, ou similar, com o au- 7 SCROLL 4 
1800 NEXT Y xílio do tubinho que acompanha o produto. E BOTO 7 


Outra maneira seria levantar com cuidado um lado da 
tampa do cartucho e colocar o lubrificante diretamente. 
Mas é preciso ser muito cuidadoso porque se a fita escapar 
do cartucho, você nunca mais vai conseguir colocá-la de no- 
vo. A quantidade de lubrificante deve ser definida experi- 
mentalmente, um pouco de cada vez, e este processo pode 
.ser repetido de três a cinco vezes. 


1900 LPRINT : LPRINT "MENSAGEM OU DEDICATORIA" 
2000 RETURN 


Nesta rotina, que pode ser incluída em qualquer programa, o caráter a ser uti- 
lizado (no caso “*”) poderá ser qualquer um. A instrução SET (0, Y), na linha 
1700, permite que acompanhemos pelo vídeo em qual linha a impressora está. 
Agora é só mãos à obra... de arte. 














Assim, para fazer um SCROLL regional, basta 
dar um POKE 16418,X, sendo que X é igual a 23 
menos o número de linhas que podem ser roladas. 
Mas é importante não esquecer que X nunca deve- 
rá ter o valor de 0. 


















Roberto Quito de Sant'Anna-RJ Edson Noboru Yamada-SP 





Fábio Lopes Sampaio-RJ 





Os micros da linha Sinclair podem auxiliá-lo no estudo das associações 
de resistores em circuitos elétricos. Veja só 





Uma aula sobre 
circuitos elétricos 


odemos encarar como realidade 

no Brasil a utilização do micro- 

computador no ensino, man- 

tendo as devidas proporções. 
As diversas experiências já realizadas 
nessa área estão mais voltadas para a 
iniciação do aluno, notadamente o de 
29 grau, nas linguagens (principalmente 
o BASIC) e no uso do aparelho, do que 
para a utilização do microcomputador 
como um recurso adicional de ensino 
(Marinho, s. d.). 

Este último emprego não tem sido o 
mais procurado e é exatamente nessa 
área que vemos um grande potencial 
ainda não explorado, inclusive pela 
carência de software. Tem sido destaca- 
do o papel dos professores e aí incluem- 
se, principalmente, os da área de Ciên- 
cias Exatas, que deveriam ser encarrega- 
dos da elaboração desse software. 

Uma boa perspectiva que vemos da 
utilização do microcomputador como 
meio auxiliar no processo ensino-apren- 
dizagem, não excluindo a utilização de 
outros recursos e nem identificando-o 
como um substituto para as carências 
de recursos instrucionais (Seminário Na- 
cional de Informática na Educação, 
1982), encontra-se na CSI — Computer 
Supported Instruction. 

Na CSI, a simulação é de significativa 
importância (Chaves, 1983) e, embora o 
microcomputador não inove ao permitir 
a simulação, ele a torna realizável nas 
escolas de 1º e 20 graus, notadamente 
pelo seu reduzido custo (Piazzi, 1982). 
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Simão Pedro P. Marinho 





O programa (Holko, 1983) que apre- 
sentamos, adaptado para a linha Sinclair, 
é uma simulação no ensino de Física, no 
estudo das associações tle resistores em 
circuitos elétricos. 

Não é proposta que esse programa se- 
ja utilizado como substituto de uma prá- 
tica que possa ser desenvolvida em la- 
boratório, mas sua aplicabilidade é 
ampla. Piloto de uma série de programas 
que está sendo planejada na PUC-MG, 
ele é, antes de mais nada, uma tentativa 
de tornar disponíveis programas que 
possam ser utilizados no ensino, inclusi- 
ve como facilitador da interação ho- 
mem -máquina. 


REVENDO A TEORIA 


Existem fundamentalmente duas pos- 
sibilidades de associação de resistores 
(dois ou mais) em um circuito: em série 
e em paralelo. A combinação dessas 
duas modalidades determina a associa- 
ção dita mista. 

A principal característica da associa- 
ção em paralelo é que o ddp (diferen- 
cial de potencial elétrico) entre os ter- 
minais de cada um dos resistores asso- 
ciados é o mesmo da associação. A 
corrente i que chega ao ponto A sub- 
divide-se em tantas correntes quantos 





Figura 1 
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sejam os resistores associados. Veja na fi- 
gura | um exemplo disso, onde indica- 
mos apenas duas correntes. 

As duas correntes (ij, que passa por 
R1, € i2, que passa por R2) somam-se 
no ponto B, de tal maneira que: 


isi,+d, (1) 


Considerando que ddp (VAB) é o 
mesmo para os dois resistores, temos pe- 
la lei de Ohm que VAB = Rjij = R2i2. 
Daí: 

“as ê Es “ap 
R R 


| 2 
Se substituirmos ij e iz em (1), tere- 
mos então: 


Pela lei de Ohm, temos VAB = Riou 


1 = III) 


V R 
AB 


Agora, comparando (11) e (III): 








R R, R,> 
Generalizando, 
1 E E O 
R R, R> R, 
O PROGRAMA 


Após a identificação do programa 
(linhas 1 a 50) e a inicialização das variá- 
veis (linhas 60 a 360), uma sub-rotina 
(linhas 1000 a 1750) monta o circuito 
com dois resistores de resistências Rj e 
R2, após o que são impressas algumas 
indicações (linhas 380 a 465). 

A montagem do circuito é feita em 
velocidade maior (FAST) o que, obvia- 
mente, provoca o desaparecimento tem- 
porário de imagens. Se o usuário qui- 
ser acompanhar a montagem do cir- 
cuito, deverá retirar a linha 1008 do 
programa. 

O programa está preparado para que 
as resistências (Rj e R2) sejam inicial- 
mente iguais a 100 ohms e a força ele- 
tromotriz (FEM) igual a 12 volts. Para 
evitar a divisão por zero, se em algum 
momento os valores das resistências ou 
da FEM forem iguais ou inferiores a 
zero, os valores iniciais (100 ohms e 12 
volts) serão restabelecidos (linha 500). 

Nas linhas 540 a 590, são feitos os 
cálculos de corrente e resistências no cir- 
cuito, em cada segmento, que são im- 
presos (linhas 600 a 660). Para que a 
atenção do aluno seja despertada antes 
de cada impressão dos novos valores 
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(isso se houve alteração em Rj, R2 ou 
VT), os valores anteriores são apagados. 

Deve-se ter cuidado no momento de 
digitar os espaços (usados para apagar os 
valores anteriores) nas linhas 600, 615, 
625, 635, 645 e 655. 

O programa permite (linhas 670 a 
890) que o usuário possa alterar, duran- 
te sua execução, os valores tanto das 
resistências (Rj e R2) quanto de FEM. 
Essa alteração é feita digitando 6 ou 7 
quando o sinal representado por três as- 
teriscos estiver piscando sob as indica- 
ções dos valores de R ou FEM. Cada 
vez que 7 é digitada, quando o sinal 
*** estiver sob os valores das resistên- 
cias, esses serão acrescidos em 10 ohms; 
no caso da voltagem, cada vez que a te- 
cla 7 é acionada, seu valor é acrescido 
em 1 Volt. A tecla 6 diminui as resistên- 
cias em 10 ohms e a FEM em 1 Volt. 

Após a alteração, o microcomputa- 
dor executará novos cálculos e indicará 
os novos valores de leitura de IT, Il e 
I2, que serão impressos, além de corrigir 
os valores de Vl, V2, resistências (RI e 
R2)e FEM(VT). 

Para parar o programa, deve-se digi- 
tar BREAK. Tinha o cuidado de, após 
o BREAK, não digitar CONT (se quiser 
rodar o programa, digite RUN). Isso 
porque o circuito é impresso em uma 
sub-rotina (linhas 1000 a 1750) e, de- 
pois disso, o programa roda em um loop 
(entre as linhas 500 e 900) e, portanto, 
o CONT permitirá que sejam reiniciados 
os cálculos com as impressões dos novos 
valores, mas não permitirá a impressão 
de novo circuito. 

Para gravar em fita ou carregar após a 
gravação, digite SAVE ou LOAD, acom- 
panhado de SIMULACAO I. 
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Simão Pedro P. Marinho é professor -titular 
do Departamento de Ciências Biológicas da 
Pontifícia Universidade Católica de Minas Ge- 
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IMIPRESSORA 


PARA 


CP-300 


Agora você já pode ter uma impressora pa- 
rao seu CP - 300. 

Com a Interface DW 121/CP você pode 
utilizar uma máquina de escrever 
OLIVETTI Eletrônica ET 121 como im- 
pressora de textos ou programas, sem 
alterar as características originais da má- 
quina ou do Micro. 

Instalada internamente na máquina de es- 
crever, a Interface permite uma série de 
recursos especiais para a confecção de tex- 
tos, tais como: sublinhamento automáti- 
co, negrito automático, comprimento de 
linha programável e outros. 

Solicite maiores informações a 


Daisy LUJHEEL eletrônica 


Indústria e Comércio Ltda. 


Uma Divisão da ESFEROMAC Ltda. 
Rua Antonio Comparato, 200 

Tels.: 532-0154 e 240-4829 

CEP 04605 — São Paulo — SP 


ICRO PROCESS 
COMPUTADORES LTDA. 


- MICROCOMPUTADORES - TK 2000/85/83 
CP.500/300/200 “APPLES' 
MONITORES, IMPRESSORAS - PAPEL, 
FITAS, DISKETTE, ETC 
MANUTENÇÃO EQUIPAMENTOS 
(AVULSO E P/ CONTRATO) 
PROGRAMAS DE CONTABILIDADE, 
ADMINISTR. IMÓVEIS 

— ELABORAÇÃO DE PROGRAMAS 
ESPECIAIS 
PERSONALIZAÇÃO DE PROGRAMAS 

— PARA FIRMAS E PROFISSIONAIS 
LIBERAIS 
CONTROLE DE CLIENTES, TRATAMENTOS 
E CONTAS PARA CONSULTORIOS 
MÉDICOS E DENTARIOS 
PACOTES DE PROGRAMAS PARA 
ADVOGADOS, E CORRETORES DE 
VALORES E AÇÕES 
OFERTAS ESPECIAIS....... (ORTN) 
e SUPERVISICAL (APPLE) (CP .500/23)..20 
* OPEN MARKET/ OVERNIGHT 
(CP.500/23) segui 50 
e CARTEIRA DE AÇÕES (CP 500/23) ... 40 
s CONTROLE DE OCORRÊNCIA 
PROCESSUAIS (CP.500/APPLE) 100 
VIDEO GAMES 
(APARELHOS E CARTUCHOS) 
REVISTAS, PUBLICAÇÕES TECNICAS 

— PREÇOS DE SÃO PAULO 
DESPACHAMOS VIA VARIG POR NOSSA 
CONTA 


AMPLO FINANCIAMENTO 


TEL.: 64-0468 
Alameda Lorena, nº 1310 
CEP 01424 — São Paulo 
***ESTACIONAMENTO PARA CLIENTES*** 





UMA AULA SOBRE CIRCUITOS ELÉTRICOS 


O 00 ID UN da qu Ny) — 


ARA 


SIMULACAO EM FISICA 1 


S.P.P.MARINHO 
DEP.CIENCIAS BIOLOGICAS 
PUC-MG 

CAIXA POSTAL 2686 
30000-BELO HORIZONTE/MG 
AAA e 

"SIMULACAO 1” 
IMPRIME IDENTIFICACAO D 


O PROGRAMA 


20 


PRINT AT 4,4; "SIMULACAO EM 


FISICA I" 


30 


PRINT AT 7,5;"CIRCUITOS ELE 


TRICOS" 


40 
M” 
50 


PRINT AT 14,9;"CIRCUITO CO 


PRINT AT 15,3;"RESISTENCIAS 


EM PARALELO" 


55 

60 

70 

80 

90 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
319 
320 
330 
340 
350 
360 
365 
370 
375 


INICIALIZA VARIAVEIS 
A=PI/PI 
B=VAL "6" 
C=VAL "8" 
D=VAL "11" 
E=VAL "B*2" 
F=VAL "13" 
G=VAL "15" 
H=VAL "2*C" 
I=VAL "C+E" 
J=VAL "B+G" 
K=VAL "D*2" 
L=VAL "D+E" 
M=VAL "E+F" 
N=VAL "D+H" 
O=VAL "G+H" 
P=VAL "F+I" 
Q=VAL "F+K" 
R=VAL "E+M" 
S=VAL "I*2" 
T=VAL "J*2" 
U=VAL "I+L" 
V=VAL "B*C" 
W=VAL "N*2" 
X=VAL "I*3" 
Y=VAL "J*3" 
B$="R17" 
CS="R2" 
D$="FEM” 
E$="VOLTS" 
F$="AMP" 
GS="***" 
DIRIGE PARA SUB-ROTINA 

GOSUB 1000 

REM IMPRIME INDICACOES NO C 


IRCUITO 


380 
390 


400 
410 
420 
430 
440 
450 
460 
465 


PRINT AT 
PRINT AT 
PRINT AT 
PRINT 
PRINT 
PRINT 
PRINT 


2,K;F$S;" TOTAL" 
L,A;BS;"=" 

PRINT I,E;CS$;"=" 

PRINT I,2*E;DS;"=" 

REM INDICA RESISTENCIA E VO 


LTAGEM INICIAIS 


470 
480 
490 
495 


LET R1=100 

LET R2=100 

LET VT=12 

REM VERIFICA SE R1,R2 OU VT 


SAO IGUAIS OU MENORES QUE ZERO 


500 


IF Ri<=0 OR R2<=0 OR VT<=0 


THEN GOTO VAL "470" 


505 


REM IMPRIME VALORES DAS RES 


ISTENCIAS E VOLTAGEM 


510 
520 
530 


74 


PRINT AT 1,4;R1;" OHM " 
PRINT AT 1,15;R2;" OHM º 
PRINT':AT I,28;VT;" V " 


Simulação em Física I 


535 


REM CALCULA VARIACOES NO CI 


RCUITO 


540 
550 
560 


LET V1I=VT 
LET V2=VT 
LET RT=INT (RI*R2/(R1+R2)*1 


000)/1000 


570 


595 
600 
610 
615 
620 
625 
630 
635 
640 
645 
650 
655 
660 
665 


LET IT=INT (VT/RT*1000)/100 
LET I1=INT (V1/R1*1000)/100 
LET 1I2=INT (V2/R2*1000)/100 


REM IMPRIME MEDIDAS 
PRINT 3,24;" 
PRINT 3,24;IT 
PRINT AF Ya 
PRINT 7,4;11 
PRINT A fi 
PRINT 7, 13512 
PRINT PeRp? 
PRINT AT F,2;V1 
PRINT F,173º 
PRINT F,17;V2 
PRINT F,26;" 
PRINT F,26;VT 
REM IMPRIME ORIENTACOES PAR 


à ALTERAR RESISTENCIAS E/OU VOLT 


AGEM 


670 


PRINT AT 0,0;"DIGITE 7 P/ A 


UMENTAR" 


680 


PRINT AT 1,0;" 6 P/ D 


IMINUIR" 


685 


REM PERMITE USUARIO ALTERAR 


VALORES DAS RESISTENCIAS OU DA 
VOLTAGEM 


690 
700 
710 
720 
ção” 
730 
740 
750 
760 
770 
780 
790 
Pe id 
800 
810 
820 
830 
840 
850 
860 
;Ng” 
870 
B80 
890 
900 
1000 
1005 
1008 
1010 
1020 
1030 
1035 
1040 
1050 
1060 
1065 
1070 
1080 
1090 
1095 
1100 
1110 
1120 
1125 


FOR Z=1 TO 10 

PRINT AT J,4;G$ 

LET AS=INKEYS 

IF LEN A$=0 THEN PRINT AT J 


IF A$="7" THEN LET R1=R1+10 
IF A$="6" THEN LET R1=R1-10 
NEXT Z 

FOR Z=1 TO 10 

PRINT AT J,G;GS 

LET AS=INKEYS 

IF LEN A$=0 THEN PRINT AT J 


IF AS$="7" THEN LET R2=R2+10 
IF AS="6" THEN LET R2=R2-10 
NEXT Z 

FOR Z=1 TO 10 

PRINT AT J,N;GS 

LET AS=INKEYS 

IF LEN A$=0 THEN PRINT AT J 


IF A$="7" THEN LET VT=VT+] 
IF A$="6" THEN LET VT=VT-1 
NEXT 2Z 

GOTO VAL "500" 

CLS 

REM MONTA CIRCUITO 
FAST 

FOR Z=U TO Y 

PLOT Z,41 

PLOT Z,34 

NEXT Z 

FOR Z=B TO I 

PLOT Z,34 

PLOT 2,26 

NEXT Z 

FOR Z=L TO R 

PLOT 2,34 

PLOT 2,26 

NEXT Z 

FOR Z=A TO E 

PLOT Z,K 

PLOT 2,14 

NEXT Z 


FOR Z=0 TO 1 
PLOT Z,K 

PLOT Z,14 
NEXT Z 

FOR Z=V TO 
PLOT Z,K 

PLOT Z,l4 
NEXT Z 

FOR Z=K TO 
PLOT Z,38 
NEXT 2 

FOR Z=E TO 
PLOT Z,36 
NEXT Z 

FOR Z=B TO 
PLOT Z,24 
PLOT Z,E 

NEXT Z 

FOR Z2=28 TO R 
PLOT Z,24 
PLOT Z,E 

NEXT Z 

FOR Z=K TO W 
PLOT 
NEXT 
PLOT 
PLOT 
PLOT 
PLOT 
PLOT 
PLOT 


e 


as) 
= 
o) 
9 
WHO OomMmMxXaaS 


Ms... sa 
-*0777FH000D0ON 


E TR 


sX<CcODmpunuamErHy 
SSISNSNSNNN 


PRINT AT D,9;"<";BS 
PRINT AT F,10;C$;">" 
SLOW 

RETURN 
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PRH 


CONSULTORES 


Assessoria em Processamento de 
Dados 

Desenvolvimento de Programas 
PROGRAMAS PRONTOS 
(TRS-80-IIl — diskette) 

e Emissão de Carnês 

e Controle de Convênios 


e Processamento de Cadastros 

e Histórico Médico 

e Mala Direta 

e Lista de Preços com Reajuste 
Automático 

e Cadastro de Artigos de Re- 
vistas e/ou Livros 

e Cadastro de Clientes 


PRH Consultores 
Rua México, 70—Grupo 810811 
Centro-RJ Tel.: (021)220-3038 





EB EINS E BUTES 
COMPUTADORES 





e VENDAS 
e ASS. TÉCNICA 
ESPECIALIZADA 
e PROGRAMAS 
e DISKETTES 
e FITAS 
e SERVIÇOS 
e CURSOS DE BASK 
e FORMULARIOS 
CONSERTOS EM 4 HORAS 
(COM GARANTIA) PARA 
O CP-500 e DGT-100 
SAO CONRADO 
Estrada da Gávea, 642 
Lj. .B Tel.: 322-1960 


PROBLEMAS 
COM SUA 
ASSINATURA? 


Escreva para o nosso Departa- 
mento de Assinaturas do Rio ou 
São Paulo e envie, para facilitar, 
a sua etiqueta adesiva de remes- 


sa A 


Rua Visconde Silva, 25 — Bota- 
fogo — Rio de Janeiro — RJ — 
el 22281 — Tels.: (021) 286- 
1797, 246-3839 e 266-0339. 

Al. Gabriel Monteiro da Silva, 
1227 — Jardim Paulistano — São 
Paulo — SP — CEP| 01441 — 
Tel.: (011) 853-3800, 





Rua Miguel Lemos nº 41 
sala 606 - Copacabana 
Tel.: 227-8803 
Rio de Janeiro - RJ. 


No Recife, visite 


TELEVÍDEO (') 


O Lojao de Informatica mais 
descomplicado do pais! 
Micros, perifericos, suprimen- 
tos, Software, Cursos, Livros e 
Revistas, Componentes Eletro- 
nicos, Peças e Som. 


PREÇOS ESPECIAIS. 
FINANCIAMENTO PRÓPRIO. 


Compre pessoalmente ou pelo 
Reembolso Postal. 


TELEVIDEO LTDA. 

R. Marquês do Herval, 157 
Tel.: (081) 224-8932, 
(50000) Recife, PE 


() Sr. Industrial: distribuimos seu 
produto nas melhores condiçoes. 
Contato em Sao Paulo: Tel.: (011) 
220-7377 (Sr. ANDERSON — Mun- 
disom) 


“MIKROS' 
AGORA NO 
LEBLON! 


Av. Ataulfo de Paiva 566 - Loja 211 
Rio de Janeiro — Tel.: 239-2798 


APROVEITE OS PREÇOS 


MICROCOMPUTADORES 

NAJA — JR-SYSDATA — UNITRON 

COLOR 64 — APPLE-TRONIC 

CP-200 — CP-300 — CP-500 

TK-83 — TK-85 — RINGO 
SISTEMAS 

SOFTWARE (NAC. E IMPORT) 
IMPRESSORAS E PERIFÉRICOS 
CURSO DE BASIC 

PROFISSIONAIS 
ALTAMENTE ESPECIALIZADOS 
PARA ATENDÉ-LO 
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Transformação PAL-M 
Assistência Técnica 
Expansões 


UNITRON 


Assistência Técnica 
Autorizada 
Vendas - Leasing 
Expansões 


jo soJelbi/ do) 


Manutenção 
na sua empresa 


Av. Marechal Câmara, 271/101 
Rio de Janeiro Tel.: 262-3289 





DATAMICRO 


VENDA DE 
MICROCOMPUTADORES 
COLOR 


CP 300, 500 & 600 


COLOR 64 (EXT. BASIC) 


SUPRIMENTOS 
Disquete. fitas. form. continuo 


CONSULTORIA DE SISTEMAS 
Diagnóstico e apoio a decisão 


CURSOS E TREINAMENTO 


Introdução aos microcomputadores 


Linguagem Basic 
Aplicação dos micros 
na Engenharia 


Microcomputadores para crianças 


INSCRIÇÕES ABERTAS 
Livros e revistas especializados 


Visc. de Pirajá, 547 Sobreloja 211 


Cep. 22.410 Ipanema Rio RJ 


Tel.: (021) 274-1042 
DESPACHAMOS PARA 
TODO O BRASIL 


q 
o 
no 








Efierechip 


COMPUTAÇÃO 


CinclainPDoce 


| O lugar compatível 
com você e seu 
micro. 







— Micros 
— Acessórios 
— Software 
— Livros 
— Revistas 














Rua Dias da Cruz, 215 
s/804 — Rio de Janeiro—RJ 
Tel.: 594-2699 


Alfa Bit. 
CLUBE DE COMPUTAÇÃO 


Associe-se ao ABCc e ganhe Anúncio GRA- 

TIS,-um exemplar de ALFABIT e DESCON- 

TOS de 10% na compra de LIVROS, REVIS- 

TAS, CURSOS e PROGRAMAS. além de 

— Serviços de "“Reprinters” e Consultas 

— Associação a Clubes Europeus 

— Participação em Cursos, Congressos e 
Concursos 

— Novos Lançamentos a PREÇOS REDUZ!- 
DOS (Breve: IMPRESSORA DE AGU- 
LHAS P/MINI-MICROS DE LÓGICA SIN- 
CLAIR - Lançamento “Digital Eletró- 
nica”) 

ANUIDADE: Cr$ 1.000 (hum mil cruzeiros) 

somente ao receber seu Cartão-Descontos € 

um exemplar de “Alfabit” 

Envie nome, endereço, profissão e texto do 

seu anúncio (caso queira publicação ime- 

diata). 


NOVIDÉIA(*) 
Comunicação e Informática Ltda. 
CAIXA POSTAL 9978 
CEP 01051 - São Paulo, SP 


(*)Comercializamos seu proje- 
to-Soft ou Hard. Escreva-nos 



























PRODUTORES DE SOFTWARE 


Empresa de processamento de dados em fase de 
expansão em microinformática está selecionan- 
do e adquirindo software de boa qualidade, em 
linguagem fonte, para microcomputadores das 
linhas APPLE, CP/M e para os compatíveis com 


PC-IBM. 


Pede-se aos autores interessados remeterem a 
relação de seus sistemas para “GOOD IDEA” 


a/c desta revista. 


ALAMEDA GABRIEL MONTEIRO DA SILVA 
nº 1227 — JARDIM PAULISTANO — S.P. 
CEP: 01441 





Aprender a fracionar visualizando o todo e as partes fica bem mais fácil, 
principalmente quando o quadro-negro se transforma na tela de um micro TRS-80 





1/5, 2/3, 7/12... 
À tela, para aprender frações 


nsinar frações às crianças em 

idade escolar é o objetivo deste 

programa, que roda em 

qualquer micro da linha 
TRS-80 com 16 Kb de RAM. 

O programa plotará no vídeo uma 
área dividida aleatoriamente em até 12 
partes, enumerando-as uma a uma, O 
que irá determinar o denominador da 
fração. Em seguida, preencherá um 
número aleatório dessas divisões, O 
que representará o numerador da 
fração. A partir daí, o computador 





o REM “x 
30 REM xx 







30 RANDOM 












70 A=RND(Í2):B=RND( 12) 
80 IFA>BTHENZO 
90 REM 


110 D=120/B:5=D/2 
120 CLS:PRINTTABC20)“x* 


180 L=AxD+4 


76 


** D=numero de pontos horizontais que devera” 
100 REM *x S=ponto central de cada divisao 


APRENDENDO FRACOES 
130 REM ** delimitando as divisoes 

140 FORX=4TOL2ZASTEPDISETCX,3):SET(X, 19) :NEXT 
1350 REM ** numerando as divisoes 

160 P=449+5/2:FORI=ÍTOB:IPRINTOP,I;:P=P+S:NEXTI 
170 REM xx L=distancia a ser preenchida (nunerador) 


Heber Jorge da Silva 





pedirá à criança para entrar com a 
fração correspondente à área plotada. 

O programa aceitará respostas de 
diversas maneiras. Por exemplo: se a 
resposta correta é 8/12, a criança poderá 
responder com 2/3, com 4/6 ou ainda 
com o próprio 8/12. Se a resposta for 
uma das últimas, o programa fará a 
simplificação para 2/3, mostrando-a 
no vídeo. 

Sempre que a resposta da criança for 
incorreta, o computador emitirá uma 
mensagem de erro e pedirá uma nova 


Aprendendo frações 


LO REM DEI IE TETE DEI DEE TETE DEI DE IE DEE DEDE DE DEDE DE DEDE DE DE DE DE DEDE DE DE DE DE DE DE DEDE DE ED DE DEE E E E 

APRENDENDO FRACOES 
POR HEBER J SILVA 
40 REM DEDE ICE TCE TETE DEDE IE DEDE DEDE DEDE DEDE DEDE DEDO DEDE DE DE DT DEDE DE TED DE DE E DE DE DEDE DEDE DEDE DE 


- BRASILIA DF -—- NOV/83 


60 REM *x estabelecendo valores para o numerador e denominador 


170 REM xx preenchendo a area do numerador 
FORX=4TOLZFORY=4TOLBISET(X, Y)ZNEXTY, XZFORX=4TOLSTEPDZIFORY=4TOLBIRESETCX,Y)ZN 


ter 


xx": GOSUB430 


resposta até obter a correta. 

Observação: quando da digitação do 
programa, as linhas com instruções 
REM poderão ser ignoradas, uma vez 
que o programa não faz endereçamento 
às mesmas. 


Formado em Administração de Empresas pela 
UDF, Heber Jorge da Silva trabalha atualmen- 
te na Telebrasília, onde exerce atividades li- 
gadas à programação de microcomputadores. 





cada divisao 
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EXTY,X 


ei o 
220 
230 
240 
230 
260 
270 
e80 


ODELSEPRINT/VOCE ERROU O NUMERADOR !...“7GOSUB4S0O:PRINTOS673,” 


290 
300 


20ELSEPRINT/VOCE ERROU O DENOMINADOR!...“:GOSUB4S0:PRINTOSOÍL,” 


310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 


9801,” 


60 

420 
430 
440 
450 
460 


micro 
não pode 
Pdf'dl 


Quem trabalha em processamento de dados, sabe 
que as melhores decisões vivem no mesmo ritmo da 
pulsação de um microcomputador. 

Se ele pára, grandes negócios podem ser perdidos. 
Por isso, não deixe qualquer um colocar a 

mão no seu micro. 
A MS trabalha desde 1971 em assistência 
especializada em microcomputação que se 








PRINTOS30, “ESCREVA A FRACÃO...” 

REM *x captando resposta (numerador) 

PRINTAÕA6S2,“Numerador ==== “= 2 INPUTN 

PRINTOZ36,” “2: IFERTHENPRINTAIBOLSL,M:GOTO2Z80 

REM *x captando resposta (denominador) 

PRINTO780,“Denominador | ==== “= 2 INPUTM 

REM xx testa resposta p/ numerador 
IFN=AO0R(N=1ANDM=B/A)OR(N=A/2ANDM=B/2)0R(N=A/3ANDM=B/3)0R(N=A/4ANDM=B/4)THENS 
“s2ER=-1:G0T0210 
REM xx testa resposta p/ denominador 
IFM=BOR(M=B/AANDN=1)0R(M=B/2ANDN=A/2)0R(M=B/3JANDN=A/3)0R (M=B/4ANDN=A/4) THENI 
“226070260 

REM *x tudo certo 

PRINT:FORT=1LTO6O:PRINTIPÍB, HHHHH HHH HHH”; ZPRINTOVÍO, MUITO BEM 111“, 2NEXTT 
REM xx da” para simplificar denom./num. ? 
IFN<>1LANDM/N=INT(M/N)THENM=M/NEN=N/NEGOTO4ÍO 

REM xx da” para simplificar por 3? 
IFN/3=INT(N/3)ANDM/3=INT(M/3)THENM=M/3:N=N/3:60T0410 

REM *x da” para simplificar por 2 ? 

X=INT(N/2)*22:Y=INT(M/2)*2: IFX=NANDY=MTHENN=N/2:M=M/22:E=2:6070380 

IFE=2THEN41 DELSEGOSUB450:G0T0460 

REM *x mostrando fracao simplificada 


I=N: J=M:PRINTO/42,/<== SIMPLIFICANDO...”“;2FORT=1ÍTO6O:PRINTOS673,” “s3PRINT 


“s2PRINTO673,I; 2PRINTOBOÍ, J; :NEXTT:GOSUB450:GOTO460ELSEGOSUB4S0:GOTO4 


REM ** plota area a ser dividida 
FORX=4T0124:FORX=4T0124:SET(X,4)2SET(X,18)2NEXT' 

FORY=4TOÍ1B:SET(4, Y):SET(124,Y):NEXTYERETURN 

FORT=1ÍT01000:NEXT:RETURN 

PRINTO970,“TECLE QUALQUER TECLA PARA CONTINUAR “; = IFINKEY$="“THEN460ELSERUN 
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estende desde check-ups preventivos até a substituição de pe- 
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010 01110100 0000 1100 1111 
aaa O 1000 0010 


0010 





Curso de 
] Assembler - 








a última lição, estudamos o grupo de JUMPS e espero que 
até agora você não tenha dúvidas e já tenha testado alguns programas 
Assembler. Nesta lição, vamos conhecer o grupo de CALL c RETURN. 
Estas instruções realizam as mesmas funções que as instruções GOSUB / 
RETURN do BASIC. As instruções que compõem este grupo são as se- 
guintes 


| CALL Incondicional 
Formato: CALLnn 
Operação: Desvia o fluxo do processamento para o endereço nn e 
executa as instruções a partir deste endereço até encon- 
trar uma instrução RETURN, quando então retorna para 
a instrução seguinte à instrução CALL nn. 


Código Objeto: 
CALL nn 


—p CD 
Ê ns 


Ls .—— nn —————+ 


Exemplo: 







CALL 40A4 MH 
—p CD 
—+> A& 


101007100 
0100000 0/—D40 


Descrição: Após salvar o conteúdo corrente do Program Counter (PC) no 
Stack, carrega no Program Counter (PC) o operando nn. A 
próxima instrução a ser executada pelo microprocessador 
encontra-se no endereço nn e o topo do Stack contém o 
endereço de retorno da sub-rotina. Lembre-se de que o pri- 
meiro operando dos dois operandos nn é o endereço de 
baixa ordem (LSB), enquanto que o segundo operando é o 
operando de alta ordem (MSB). 


CALL 4044 H —P CD A440 


ES: 


Na execução desta instrução, o microprocessador efetua as seguintes 
operações: 
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(SP-1) €— PC, 
(SP-2)4—PC, 


PC nn 


Ciclos de máquina (M): 5 

States (T):17(4,3,4,3,3) 

Flags afetadas: Nenhuma. : E 

Exemplo: A rotina a seguir mostra no vídeo o conteúdo da posição 
0000H de memória. 





0100 FTESTE DA FUNCAD CALL nN 
TIA 00:10 VIDEO EQU OTZAH 
8021 00120 DOS EOU 402DH 
520 00130 0RGS S200H FPONTO DE CARGA ae 
5200 2A0000 00140 INIT Lo HL., (0000H) sH <- CONTEUDO DE DOOU 
5203 00150 LD AH JA <- CONTEUDO DE s: 
S204 CDOES2 00140 CALL. asc, DISPLAY NUMERO EM sEXA 
Es 00170 LD A,t ff <- CONTEUDO DE L Sa 
S208 CDOESZ2 co180 CALL ASC IDISPLAY NUMERO EM nE TS 
S20R CI2D40 vovo JP DOS IRETORNA AO DOS 
S20E 09200 ASC PUSH ac ISALVA AF NO STACK 
s2 00210 Raca SHIFT 
s210 00220 RRCA BITS O — 5 
Sz11 0 00230 RRCA NOS 
s212 OF 00749 RECA BITS 4 —- 7 e 
s2:3 CD1752 00250 CALL ASCZ FCALCULA 1, DIGITO 
s216 F1 00260 POP ar IRESTAURA AF 
S217 E60F 00270 ASC2 AND oFH rZAP O -3 
5219 C630 ooz80 ADD A, FOM jo ATE 9 
SZ1B FESJA 00290 ce TAM ICOMPARA SE A < Jam 
S21D 3802 00300 JK C,DISP JDISPLAY SE MENOR ; 
S21F C607 00310 ADD A,7 JAJUSTA PARA “A” ATE *F 
S221 CD3A03 00320 DISP CALL vIDEO IDISPLAY CONTEUDO DE & 
5224 €9 00330 RET FRETORNA à CHaMaDA 
5200 00340 END INTT 


00000 TOTAL ERRORS 
34318 TEXT AREA BYTES LEFT 


— CALL Condicional 

Formato: CALL cc, nn 

Operação: Desvia o fluxo do processamento para o endereço nn, se 
a condição cc for verdadeira, e executa as instruções 
a partir deste endereço até encontrar um RETURN. Se 
a condição for falsa, ignora a instrução CALL e conti 
nua a execução do programa no seu fluxo natural. 

Código Objeto: 


CALL cc, nn 


Exemplo: 
CALL Z,4OA4 H 


11001100 > cc 


10100100/—D As 


010000001!—-+ 40 
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onde cc identifica a condição da flag a ser testada. Veja a figura 1. 


(Z=0) 
(Z=1) 


(C=0) 
Cc (c=1) 


PO (P/v=0) 
PE (P/V=1) 
P (5=0) 





M (5S=1) 
Figura 1 


Descrição: Se a condição cc é verdadeira, esta instrução salva o con- 
teúdo corrente do Program Counter (PC) no Stack e 
carrega no Program Counter (PC) o operando nn. A 
próxima instrução que será executada pelo microproces- 
sador encontra-se no endereço nn, e o topo do Stack 
contém o endereço de retorno da sub-rotina. Se a condi- 
ção cc é falsa, o Program Counter é incrementado nor- 
malmente, e o programa continua na próxima instrução. 


CALL / 


v (SP-1) 4— pe, 


1 Dvertsanico FSP -2) t— Pe 
y falso do id 
continua 


Ciclos de maquina 


+» 4044 H 


condição 


verdadeira 17(8,3,8,3,3) 


condição 
falsa | 10(8,3,3) 





Flags afetadas: Nenhuma. 

Exemplo: Se a flag C no registrador F está ressetada, o conteúdo do 
Program Counter (PC) é 1A447H, o conteúdo do Stack 
Pointer é 3002H e as posições de memória têm o seguinte 


conteúdo: 
POSIÇÃO CONTEÚDO 
D4 H 










35 H 





21 H 


Então, quando o microprocessador efetuar o próximo FETCH, en- 
contrará D43521, que equivale, em mneumônico, à seguinte instrução: 


CALL NC,2135H 


Após a execução da instrução, o conteúdo do endereço de memória 
3001H será 1A H, o conteúdo da posição 3000H será 4AH e o conteú- 
do do Stack Pointer será 3000H. O conteúdo do Program Counter 
será e ie apontando para o primeiro byte da sub-rotina que deve ser 
executada. 


3 — RETURN Incondicional 
Formato: RET 


Operação: Retorna ao ponto de chamada de uma sub-rotina efetua- 
da por uma instrução CALL. 


Código Objeto: 
RET 


11007100 1|—pc9 


MICRO SISTEMAS, março /84 


Descrição: Recupera o endereço colocado no Stack pela instrução 
CALL e carrega no Program Counter (PC). A próxima 
Pur Tação executada será a instrução seguinte à instrução 

ALL. 


RET PC, 4— (SP) 


PC, €—(SP+1) 


Ciclos de máquina (M): 3 

States (T): 10(4, 3,3) 

Flags afetadas: Nenhuma. 

Exemplo: Se o conteúdo do Program Counter (PC) é 3535H, o 
conteúdo do Stack Pointer é 2000H, o conteúdo da posi- 
ção de memória 2000H é B5H e o conteúdo da posição de 
memória 2001H é 18H. Após a execução da instrução 
RET, o conteúdo do Stack Pointer (SP) será 2002H e o 
conteúdo do Program Counter (PC) será 18BSH. 

Podemos compreender melhor a operação da instrução RET pelo 

exemplo a seguir: 






5200 00100 ORG sS200H 
5200 CDOOBO 00110 CALL SUB! 
5203 2240040 00120 LD Hi, (4000H) 
00130; 
00140: 
00150; ) 
8000 00160 ORG 8000H 
8000 FS 00170 Suai PUSH ar 
8001 ES 00180 PUSH 
8002 DS 00190 PUSH 
8003 C9 00200 RET 
0000 00210 END 


00000 TOTAL ERRORS 
34945 TEXT AREA BYTES LEFT 


4 — RETURN Condicional 
Formato: RET cc. 
Operação: Retorna ao ponto de chamada de uma sub-rotina, efetua- 
da pôr uma instrução CALL, se a condição testada for ver- »» 
dadeira. (e 


OR asim dom 


dismac EE: 


ESTES SÃO SÍMBOLOS 
*Y 





JUNTOS FORMAM 
A PERFEITA HARMONIA QUE VOCÊ PROCURA 


venha comprovar nosso atendimento 


EQUIPAMENTOS-PROGRAMAS-CURSOS-CONSULTORIA 


Lesbi Informática Ltda, 
tv. 28 de setembro 226-lj. 110 tel: (021) 2846949 








CURSO DE ASSEMBLER — XIV 


Código Objeto: 


Exemplo: 
RET Z 


1100100 0/-P€8 


onde cc identifica a condição da flag a ser testada. Veja figura 1. 

Descrição: Se a condição ce é verdadeira, recupera o endereço 
no Stack pela instrução CALL e carrega no Program 
Counter (PC). A próxima instrução executada será a 
seguinte à instrução CALL. Se a condição é falsa, o 
Program Counter é incrementado normalmente e o 
programa continua na próxima instrução. 


PC, 4 (SP) 


verdadeiro-p 
PC, (SP+1) 


v falso 
jcontinua | 


| Ciclos de maquina (M) 


condição 
verdadeira | 


condição 


falsa 





Flags afetadas: Nenhuma. 

Exemplo: Se a flag S, no registro F, está setada, o conteúdo do Pro- 
gram Counter (PC) é 3535H, o conteúdo do Stack Poin- 
ter (SP) é 2000H, o conteúdo da posição de memória 
2000H é B5H e o conteúdo da posição de memória 2001H 
é 18H. Após a execução da instrução RET M, o conteúdo 
do Stack Pointer sera 2002H e o conteúdo do Program 
Counter (PC) será 18B5H, apontando para a próxima ins- 
trução que será executada. 


— Retorno de Interrupção 

Formato: RETI ou RETN 

Operação:Estas instruções são usadas ao fim de uma rotina de ser- 
viço de interrupção. Restauram o conteúdo do Program 
Counter (PC) e voltam à execução do fluxo normal do 
programa, a partir do endereço que estava sendo executa- 
do, quando foi provocada a interrupção. 


Código Objeto: 
RETI 


OROCHI Ed 


010011017] -D4D 


RETN 


DOOM TO 


010001 017/-D45 


Descrição: A instrução RETI é usada ao fim de uma rotina de servi- 
ço de interrupção para restaurar o conteúdo do Program 
Counter (PC) — executa os mesmos procedimentos da ins- 
trução RET — e assinala em um dispositivo de I/O que a 
rotina de interrupção foi completada. Esta instrução 
também resseta os Flip-Flops IFF1 e IFF2. A instrução 
RETN é usada ao fim de uma rotina de interrupção não 
mascarada — executa os mesmos procedimentos da ins- 
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trução RET. O estado do Flip-Flop IFF2 é copiado no 
Flip-Flop IFF1 para aceitar outra interrupção de NMI. 


Ciclos de máquina (M): 4 

States (T): 14(4,4,3,3) 

Flags afetadas: Nenhuma. 

Exemplo: Se o conteúdo do Stack Pointer é 1000H e o conteúdo do 
Program Counter é 1A45H, quando o sinal de uma inter- 
rupção não mascarada (NMI) é recebida, o microprocessa- 
dor ignora a próxima instrução (completa a execução da 
instrução corrente) e provoca um restart para a posição de 
memória 0066H. Isto é, o conteúdo correntedo Program 
Counter (PC) é colocado no Stack nas posições de memó- 
ria OFFFH e OFFEH, o Stack Pointer (SP) é atualizado 
para OFFEH e o Program Counter é carregado em 0066H. 
Este endereço sempre contém uma rotina de serviço de 
interrupção que deve terminar em RETN. Após a execu- 
ção da instrução RETN, o Program Counter (PC) é carre- 
gado com o conteúdo do Stack e o programa continua a 
ser executado em seu fluxo normal. 


6 — Restart 
Formato: RST P 
Operação :Similar a uma instrução CALL, com a exceção de que o 
operando nn é substituído pelo operando EE TN define 
uma posição constante de memória para ser carregado no 
Program Counter (PC). 


Código Objeto: 
RST Pp 


Exemplo: 


[AA DA 


onde P define o endereço para o desvio do programa. 


000 para P = endereço de memoria 00H 
001 para P = endereço de memoria 08H 
010 para P = endereço de memoria 10H 
011 para P endereço de memoria 18H 
100 pars P endereço de memoria 20H 
101 para P = endereço de memoria 28H 
110 para P = endereço de memoria 30H 
111 para P = endereço dr memoria 38H 


Descrição: O conteúdo corrente do Program Counter (PC) é salvo 
no Stack e o endereço de memória dado pelo operando 
P é carregado no Program Counter. O byte mais signifi- 
cativo (MSB) do Program Counter é carregado com 
00H e o byte menos significativo (LSB) é carregado com 
o operando dado pelo operando P. 


RSI 10H (SP 1) 4 PC, 
(SP-7) & Pc, 
Po DR Co) 
H 
PC .—— 


Ciclos de máquina (M): 3 

States (T): 11(5,3,3) 

Flags afetadas: Nenhuma. 

Exemplo: Se o conteúdo do Program Counter (PC) é 15B3H, após 
a execução da instrução RST 18H o PC irá conter 0018He 
o topo do Stack 15B3H. A próxima instrução executada 
se encontra no endereço 0018H. H 





Amaury Correa de Almeida Moraes Junior é formado pelo curso de 
Análise de Sistemas da FASP, tendo feito diversos cursos de aperfeiçoa- 
mento nas áreas de Eletrônica Digital e Microprocessadores, e atualmen- 
te trabalha na área de microcomputadores para o Citybank. 
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SINTA NOS DEDOS ESTA NOVA 
CONQUISTA 


Já não é preciso escolher. Agora você tem o microcomputador DG T-1000, com design moderno e novas 
incorporações que lhe conduzirão à decisão certa. 
O DGT-1000 é modular e dependendo da sua necessidade ele se expande ate um grande sistema. 





Uma das caracteristicas do DGT:- Por ser usado o padrão PAL/M 
1000 é a opção para interface de é dispensável no caso da TV 
vídeo colorido. Esta interface lhe colorida, qualquer modificação. 
permite usar até 16 cores diferentes O DGT-1000 é compatível em 

no modo maior de resolução gráfica "tam harídii DGT 
(256/192 pontos). Você terá ainda 100 e 101 ni 


condições de movimentar no vídeo 


até 32 áreas diferentes. UIisi TIS 


A interface requer apenas o vídeo ou Rua Gávea, 150 Belo Horizonte 
uma TV colonda. Tel.:(031) 332-8300 Telex: 3352 


Asucafu (079) 2M4 3102246711 Barunet (091) 421-5211282-3774 Bernal (05%) 273-2128/225-4534/226 OW Z26-ETONDA? 6344 Belo Mortmanto (037) 223604 7/2234 5/772- TRENT IITIE A EU TESES DES TIA 
Bla (057) 225-4000/225-2000 Campiras (197) 26%X2 Cartilha (04%) 2X 4 7502431731 Divinógeiis (137) 2272004221 2194 Fortalema (005) 224 VTN AADDIZDA OSMAIDAS MTINZT] SETEITDA APIS TEA 

(457) 231030 Qolênis 067) 2315 Judo Passos (083) 2716743 Londrina (0437) 737170 Maceió (087) 773 3979 Mentes Claros (8) 7271 2500 Nierdá (00%) 714 ONO 2780 Novo Hamburgo 
(0517) 034771 Ouro Preto (091) 551+03* Poços de Caldas (035) 721 5890 Porto Alegre (0517) 268246725 194/26 0194/22 97827 41865 Racito (01) 225 SEN 5018 Ribeirão Proto (061) 6350526 flo de Janeiro 


(1, 2BE-2BOSS NADA] LIDE 2DO-OT IATA NA VD ENSEADA - SAW TSO DOS 7 IDE NDA VIGO DENNIIO CO Y TI TNTSDS O TOS ASNSTSO ITEDSA, TIGES DO? VOGNDOS ELGUDA 7 IGDOS- SIA TESE, ENGAIDSSA S VE 
DT TRIO -4 106 Salvador (071) 248-6605/735 4184/2472 IDT 2604 Santa Maris (055) 771 7120 São Paulo (011) 231 W2BIS CON EST 770075A- TINVZZZ 1SVTSA- NEADED TIOSVBSI IODO: 7377881 -ODODASS 
DAME Tauadd (0127) 529607 Viária (027) 2235147 








Este programa, para a linha TRS-80 modelo |, mostra o que você pode fazer 
com os recursos gráficos de seu micro. Faça uma “dobradinha” com ele! 








esenhe em perspectiva 


o artigo CAD: as possibilida- 
des do micro, publicado em 
MICRO SISTEMAS número 
27 (dezembro de 1983), a- 
bordamos o aparecimento, o desenvolvi- 
mento e a importância deste software 
para todas as atividades profissionais 
(ou de lazer) que envolvem projetos e 
desenhos, utilizando os recursos de re- 
solução gráfica dos microcomputadores. 

Pois bem. Desta vez apresentamos 
um exemplo de not um programa 
que permite desenhar Perspectivas Cava- 
leiras. Este tipo de perspectiva tem suas 
peculiaridades: a) a parte da figura que 
está de frente para o plano de projeção 
e paralela a ele se projeta em suas di- 
mensões reais; b) a parte da figura que 
é perpendicular a este plano (no caso o 
vídeo) se projeta nele em linhas a 45 
graus e tem suas dimensões reais reduzi- 
das à metade. 

Este programa desenha, em perspec- 
tiva, volumes que sejam cubos ou para- 
lelepípedos, mas pode também desenhar 
figuras planas (quadrado ou retângulo), 
linhas horizontais, verticais ou inclina- 
das a 45 graus, e pontos. 

O sistema de coordenadas do DGT- 
100 não é igual ao sistema de coordena- 
das convencional. No vídeo do micro- 
computador, o eixo horizontal (dos Xs) 
começa com o valor O (zero) à esquerda 
e aumenta para a direita, igual ao siste- 
ma convencional. Entretanto, o eixo 
vertical (dos Ys) começa com o valor 
O (zero) na extremidade superior e vai 
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aumentando na direção oposta — no 
sistema convencional é exatamente o 
oposto. Nosso programa utiliza o con- 
vencional, isto é, o valor O (zero) no 
eixo vertical do vídeo está na parte in- 
ferior deste. Ao usar o programa, tenha, 
pois, sempre em mente o sistema de co- 
ordenadas cartesianas convencional — 
ele será compatibilizado com o sistema 
do microcomputador pelo próprio pro- 
grama. 

A resolução gráfica de 6.144 pontos 
apresenta como ponto um retângulo 
com o lado maior na vertical e o menor 
na horizontal. Assim, as linhas horizon- 
tais são mais espessas que as verticais. 
Por outro lado, se tivermos dois conjun- 
tos de dois pontos cada um e se as dis- 
tâncias em coordenadas entre eles fo- 
rem iguais, a distância entre dois pontos 
na vertical aparecerá no vídeo maior 
que aquela entre os pontos horizontais. 
Isto significa que, se definirmos anali- 
ticamente um quadrado, ele aparecerá 
no vídeo como um retângulo. Nosso 
programa corrige este problema multi- 
plicando as coordenadas horizontais por 
2,38. Isto porque o ponto no vídeo do 
DGT-100 tem o lado horizontal 2,38 ve- 
zes menor que o vertical, o que defor- 
ma as figuras se a correção não for feita. 

Com esta adaptação, o maior valor da 
coordenada horizontal é de 53 (53 x 
2,38 = 126,14). A coordenada vertical 
tem seu valor máximo igual a 41. Por- 
tanto, as figuras que você vai desenhar 
estarão projetadas num plano de 53 po- 





sições horizontais por 41 verticais. Uma 
boa providência será, pois, arranjar um 
papel quadriculado e marcar nele estas 
dimensões. 


O vídeo do DGT-100 possui 48 po- 
sições na vertical (resolução de 6.144 
pontos. Nós adotamos o limite máximo 
de 41 posições porque reservamos as 
duas últimas linhas inferiores para o dis- 
play de instruções. Elas, portanto, não 
afetarão o espaço reservado aos dese- 
nhos. 


Ao rodar o programa, algum tempo 
será consumido com cálculos e com o 
display de figuras. Assim que isto ter- 
minar, o microcomputador poderá reçe- 
ber novas instruções. Você saberá quan- 
do chegar o momento. Um ponto na 
parte inferior esquerda aparecerá piscan- 
do. Para dar continuidade, com introdu- 
ção de novas instruções, tecle a barra de 
espaço. Se você quiser deixar um dese- 
nho no vídeo indefinidamente, é só não 
apertar a barra de espaço e o programa 
ficará em loop. 


DESCRIÇÃO DO PROGRAMA 


Ao ser iniciado, o programa passará 
das linhas S e 10 para a 205. Aparecerá 
no vídeo o nome do programa e o do 
autor (não se esqueça de nos fazer esta 
referência ao digitar a linha 210). Ao fi- 
nal desta apresentação, o programa se 
desloca para a sub-rotina da linha 15. 
Um ponto ficará piscando no lado es- 
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querdo inferior do vídeo. Ao teclar a 
barra de espaço, o programa sai do loop 
e você verá aparecer o seguinte menu: 
I-DESENHAR, 2-APAGAR PARTE, 
3-APAGAR TUDO: Eseolha- uma des- 
tas opções. A segunda (você verá um 
exemplo de seu uso mais à frente) ser- 
ve para apagar uma figura ou parte dela 
quando existe mais de uma no vídeo, 
permitindo fazer uma correção às vezes 
necessária. A terceira apaga fodo o ví- 
deo para recomeçar outros desenhos. 

No caso das opções 1 e 2, a instru- 
ção seguinte é COMPRIMENTO?. Você 
deverá então digitar o comprimento (ta- 
manho hosizontal) da figura. O progra 
ma verificará se este comprimento é 
maior que 53. Se for, aparecerá o co- 
mentário PARAMETRO INCOMPATI- 
VEL e será novamente solicitada a espe- 
cificação do comprimento. Esta avalia- 
ção de diferentes parâmetros de entrada 
visa a evitar que a figura tenha dimensões 
que não caibam no vídeo, o que acarre- 
taria um erro de overflow. 

Em seguida, deve-se informar a AL- 
TURA (lembre-se de que ela não poderá 
ser maior que 41). A especificação se- 
guinte é PROFUNDIDADE. Se ela im- 
plicar em dimensões não compatíveis 
com a área do vídeo, o programa retor- 
nará à linha 245, começando novamente 
com o COMPRIMENTO. Você poderá 
então reespecificar as duas primeiras di- 













e Minieditor de textos 
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*- Programas de aplicação doméstica: 
e Controle de despesas 
e Orçamento doméstico 


e Cálculo do ciclo fértil da mulher 


mensões da figura, ou então mantê-las, 
alterando a PROFUNDIDADE. 

Finalmente, será solicitada a coorde- 
nada X do vértice 1 da figura, assim co- 
mo a coordenada Y. O vértice 1 será 
sempre o da extremidade inferior es- 
querda da figura, seja ela um volume, 
um quadrado, um retângulo ou ainda 
uma linha. 

Estas coordenadas posicionarão a fi- 
gura no vídeo e, como no caso dos pará- 
metros anteriores, serão também verifi- 
cadas, senão provocarão um erro de 
overflow. Se isto acontecer, aparecerá 
antes a mensagem PARAMETRO IN- 
COMPATIVEL. e vacê. paderá novamen- 
te indicar as coordenadas do vértice 1. 

Se tudo correr bem, a figura deseja- 
da aparecerá no vídeo e o ponto do lado 
esquerdo inferior voltará a piscar. Te- 
clando a barra de espaço, o programa 
volta à linha 220 e você poderá começar 
de novo com uma das opções do menu 
inicial: 1-DESENHAR, 2-APAGAR 
PARTE, 3- APAGAR TUDO. Se for es- 
colhida a primeira, outra figura poderá 
ser desenhada, aparecendo no vídeo jun- 
to com a anterior, e assim sucessivamen- 


te. 
POR ETAPAS 
Agora vamos a uma aplicação prática. 
Antes, porém, será necessário digitar o 
programa. Preste muita atenção ao fazer 
isto, pois, se for cometido um erro co- 


NOSSA PRÓXIMA EDIÇÃO IRÁ 
AGRADAR A GREGOS E TROIANOS! 


Temos certeza que você irá gostar do número 31 de MICRO 
SISTEMAS, edição de abril, pois ele tem de tudo para todos. Dê só uma 
olhada nesta prévia: 


* E ainda: vários programas na área de Matemática e, para relaxar, um 
emocionante jogo de Batalha Naval para a linha Sinclair. 


Para os radioamadores também tem. A Rodada MS apresenta 
o Professor Picapau, programa de Roberto Quito 
de Sant'Anna para aprendizagem e treinamento de telegrafia. 





- Artigos gerais: 
e Precisão de cálculos em BASIC 

e Como manipular os bits 

e Otimização de programas em BASIC 


mo esquecer um ponto e vírgula (;), se 
você trocar os nomes das variáveis ou 
copiar errado o número de uma linha 
numa instrução GOTO ou GOSUB, o 
programa-não furcionará como: deve e 
alguns destes enganos não farão aparecer 
uma mensagem de erro (como no caso 
do esquecimento de um parêntese), tor- 
nando difícil achar onde o erro foi co- 
metido. 

O nosso exemplo de aplicação se 
comporá de 12 etapas: 


Etapa 1 

escolha a opção 1, DESENHAR 
especifique o comprimento iguala 14 
altura iguala 20 

profundidade igual a 14 

coordenada X do vértice 1 igual a 20 
coordenada Y do vértice 1 iguala 14 


Aparecerá no vídeo um paralelepí- 
pedo em perspectiva. Espere o ponto do 
canto do lado esquerdo inferior piscar e 
tecle a barra de espaço. 


Etapa 2 

e opção l e E 14 
e comprimento 14 e X=10 

e altura 14 o Y=4 


Agora aparecerá no vídeo um cubo 
na frente do paralelepípedo. Parte do 
desenho da primeira figura está pene- 
trando a área da segunda. Isto pode não 
ser desejável — vamos então corrigir. 


























sistólica 
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» 


call 





DESENHE EM PERSPECTIVA 


Etapa 3 

e opção 2, APAGAR PARTE 
e comprimento 14 

e altura 14 

e profundidade 14 

e X=10 

o Y=4 


Você apagou a segunda figura, O 
cubo Vamos agora apagar as partes da 
primeira que estavam dentro do cubo. 


Etapa 4 
e opção 2 e profundidade O 
e comprimento O e X= 
e altura 11 e Y=l14 
Etapa 5 
opção 2 e profundidade O 
: comprimento 11 e X=20 
e altura O e Y=l4 


As linhas do paralelepípedo que esta- 
vam dentro do cubo foram apagadas. 
Preste atenção no seguinte: uma figura 
sem comprimento e profundidade e só 
com altura é uma linha vertical; uma fi- 
gura sem altura e profundidade e só com 
comprimento é uma linha horizontal. 
Quando a opção 2 foi feita, o programa 
dirigiu-se para a sub-rotina da linha 50 
que resseta, Ou seja, apaga a figura cor- 
respondente. Vamos agora redesenhar o 
cubo. 


você e seu 


Um relacionamento assim merece 
um programa exclusivo. 
e A Informatic Service desen- 
volve programas conforme 
suas necessidades. 


e Presta-lhe total assistência 
através de uma Assessoria 
de Sistemas exclusiva. 


8 Promove a relação 
Homem -Software - Máquina 
de forma perfeita. 


Consulte-nos ainda hoje. 


INFORMATIC SERVICE DO 
BRASIL 

Av. 13 de Maio, 47 - grupo 2707 
fone: (021) 262-8769 - RJ 





Perspectivas Cavaleiras 


5 CLS 


10 
15 
RN 
20 
25 
30 
35 
40 


NTO897,""; 


45 
50 
55 


GOTO 205 
A$=INKEY$:IF A$=" " THEN RETU 


SET (0,43) :GOSUB 35 

RESET (0,43) :GOSUB 35 

GOTO 15 

FOR T=0 TO 25:NEXT: RETURN 
PRINTG896,CHR$(30);: PRINT:PRI 
: RETURN 
SET((A*2.38), (41-B)) : RETURN 
RESET ((A*2.38), (41-B)) : RETURN 
CLS: RETURN 


60 GOSUB 40:PRINT "PARAMETRO INC 
OMPATIVEL";:GOSUB 15:GOSUB 40:RE 
TURN 

65 A=Al:IF B2>Bl THEN S=1 ELSE S 


=-1 
70 


FOR B=Bl TO B2 STEP S 


75 ON D GOSUB 45,50 
80 NEXT: RETURN 
85 B=Bl:IF A2>Al THEN S=1 ELSE S 


=-1 


90 FOR A=Al TO A2 STEP S/3 
95 ON D GOSUB 45,50 


100 
105 
110 
115 
+Bl 
120 
125 
130 
x(6 
135 
x(3 
140 


NEXT: RETURN 

IF A2>Al THEN S=l ELSE S=-1 
FOR A=Al TO A2 STEP S/3 
B=(((B2-Bl)/(A2-Al))*(A-A1)) 


ON D GOSUB 45,50 

NEXT: RETURN 
X(1)=XE:X(2)=X(1):X(5)=X(1): 
)J=X(1) 
X(3)=X(1)+C:X(4)=X(3) :X(10)= 
)J:X(11)=X(3) 
X(7)=X(1)+P/2:X(8)=X(7)+C:X( 


12)=x(8):X(9)=x(8) 


145 


Y(D)=YE:Y(4S)=r(1):y(S)=y(d): 


Y(10)=Y(1) 


150 
(2) 
155 
)=Y 
160 
165 
170 


175 
185 
180 
185 
195 
190 
195 
200 
205 
210 


Y(2)=Y(1)+H:Y(6)=Y(2):Y(3)=y 
:X(I1)=Y(2) 
Y(7)=Y(2)+P/2:Y(8)=Y(7) :Y(12 
(7) 


Y(9)=Y(1) +P/2: RETURN 

FOR N=1 TO 11 

Al=X(N) :A2=X(N+1) :Bl=Y(N) :B2 
=Y(N+1) 


IF Al=A2 THEN GOSUB 65 ELSE 


GOTO 200 
IF Bl=B2 THEN GOSUB 85 ELSE 


GOTO 200 

GOSUB 105 

NEXT : RETURN 

PRINT CHR$(23) 
PRINTE256,'"PERSPECTIVA":PRIN 


T"CAVALEIRA":PRINT:PRINT"PROGRAM 
A DE":PRINT"JORGE R. DANTAS" 


215 
220 
225 


-APAGAR PARTE, 


230 
0 
235 
240 
245 
250 
60 
255 
260 
265 
75 
270 
275 
;:P 
280 


GOSUB 15:CLS 

CLEAR 

GOSUB 40: INPUT"1I-DESENHAR, 2 
3-APAGAR TUDO" ;D 
IF D=3 THEN GOSUB 55 ELSE 24 


GOTO 220 

GOSUB 40:DIM X(12),Y(12) 
INPUT "COMPRIMENTO" ;C 

IF C>53 THEN GOSUB 60 ELSE 2 


GOSUB 40:GOTO 245 
GOSUB 40:INPUT"ALTURA";H 
IF H>41 THEN GOSUB 60 ELSE 2 


GOTO 260 
GOSUB 40:INPUT"PROFUNDIDADE " 


IF C+P/2>53 OR H+P/2>41 THEN 


GOSUB 60 ELSE 290 


285 
290 

DO 
295 

DO 
300 
305 


GOSUB 40:GOTO 245 

GOSUB 40: INPUT"COORDENADA X 
VERTICE 1";XE 

GOSUB 40:INPUT"COORDENADA Y 
VERTICE 1";YE 

T=XE+C+P/2: V=YE+H+P/2 

IF T>53 OR V»41 THEN GOSUB 6 


O ELSE 315 


310 
315 
320 


GOTO 290 
GOSUB 40:GOSUB 130:GOSUB 165 
GOSUB 15:GOTO 220 








rato 6 

opção 1 e profundidade 14 
é comprimento 14 e X=10 
e altura 14 e Y=4 


Agora sim: você tem o cubo na fren- 
te do paralelepípedo sem que as figuras 
se interpenetrem. Vamos então desenhar 
figuras planas. 


Etapa 7' 

e opção 1 e profundidade 14 
e comprimento 14 e X=30 

e altura O o Y=4 

Etapa 8 

e opção 1 e profundidade 14 
e comprimento O e X=1 

e altura 14 o Y=4 


A etapa 7 desenhou um quadrado em 
perspectiva na horizontal (altura =0) e 
a etapa 8 um quadrado na vertical (com- 
primento =0). Vamos agora desenhar li- 
nhas. 


Etapa 9 

e opção 1 e profundidade O 
e comprimento 14 e X=l1 

e altura O e Y=34 

Etapa 10 

e opção 1 e profundidade O 
e comprimento O o X=44 

e altura 14 e Y=23 

Etapa 11 

e opção 1 e profundidade 20 
e comprimento O e X=40 

e altura O e Y=14 


Estas etapas (9, 10 e 11) desenharam, 
respectivamente, uma linha horizontal, 
uma vertical — ambas paralelas ao plano 
de projeção (o vídeo) — e uma linha dia- 
gonal, que é a projeção de uma linha 
perpendicular ao plano de projeção. 
Lembre-se de que, neste último caso, o 
tamanho da linha no vídeo será igual à 
metade da profundidade. Portanto, 
quando você quiser um certo tamanho 
no vídeo, defina como profundidade o 
dobro dele. 

Finalmente a etapa final desenha um 
ponto, uma figura que não tem compri- 
mento, altura e nem profundidade. 





Etapa 12 

e opção 1 e profundidade O 
e comprimento O e X=49 

e altura O e Y=32 


Agora, para fazer seus próprios dese- 
nhos, tecle a barra de espaço e escolha a 
opção 3- APAGAR TUDO. Boa sorte! 

se 


Jorge de Rezende Dantas é arquiteto urbanis- 
ta, doutor pela Universidade de Paris le pro- 
fessor livre docente de Arquitetura e Urbanis- 
mo da Universidade de São Paulo — FAUUSP, 
Vem realizando pesquisas no campo de mode- 
los urbanos e software aplicativo para as áreas 
de Arquitetura e Urbanismo. 
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Para quem utiliza gráficos demonstrativos para análise de frequência, 
um programa que gera um histograma nos micros da linha Sinclair 








Histograma: 
examine resultados 


requentemente necessitamos a- 

nalisar dados recolhidos de uma 

amostra a fim de verificar se a 

distribuição se aproxima de 
uma distribuição normal ou não. Como 
exemplo, podemos citar os erros de me- 
dida de uma determinada peça fabrica- 
da em série, as notas de uma turma de 
alunos etc. 

Para isto, podemos lançar mão do 
histograma, no qual plotamos a variável 
no eixo das abscissas e a frequência 
dela no eixo das ordenadas. Evidente- 
mente, os valores assumidos pela variá- 
vel devem ser agrupados em classes, por 
exemplo: as notas de 3,5 a 4,5 são agru- 
padas num único retângulo do histogra- 
ma, 

As aplicações de um histograma são 
as mais variadas possíveis. Ilustrando 
uma delas, trazemos aqui um programa 
que foi idealizado, em princípio, para 


REM HISTOGRAMA 

FAST 

PRINT "NUMERO DE NOTAS: "; 
INPUT TN 

PRINT TN,,: 

DIM X(TN) 

FOR I=1 TO TN 

IF 1>20 THEN SCROLL 

PRINT "NOTA ";I;":";TAB 9; 
INPUT X(I) 

IF X(I)>10 THEN GOTO 126 
PRINT X(I) 


LET X(I)=INT (X(1)+0.5) 
NEXT 1 

FOR I=l TO TN 

LET CH=0 

FOR J=1 TO TN-1 

IF X(J)>X(J+1) THEN GOSUB 9 


NEXT J 

IF CH=0 THEN GOTO 190 
NEXT I 

CLS 

GOSUB 8000 
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Luís Peres Azevedo 





notas de alunos, o qual roda nos equipa- 
mentos da linha Sinclair. Podemos tra- 
balhar com até 150 notas, e o programa 
fornece a média da turma e o desvio 
padrão da mesma. 

Inicialmente, as notas são colocadas 
em um array X(1) e, logo após, ordena- 
das de Q a 10. A linha 129 arredonda as 
notas, agrupando-as em classes, e a linha 
205 dimensiona a variável indexada 
C(TN) em função dos TN alunos — esta 
variável é incrementada cada vez que 
encontramos notas iguais (linha 226). 

Na linha 230 é gerado um retângulo, 
construído com a função PLOT. A par- 
tir da linha 240, é calculada a média da 
distribuição e, na linha 320 é calculado 
o desvio padrão, através da seguinte fór- 
mula: 





205 DIM C(TN) 

210 FOR I=1 TO TN 

215 FOR J=I+1 TO TN 

220 IF X(I)=X(J) THEN LET C(I)= 
C(I)+1 

225 NEXT J 

230 PLOT 4+(X(1)*100/24.5) ,C(I) 
+2 

235 NEXT I 

240 LET Y=0 

250 FOR I=1 TO TN 

260 LET Y=Y+X(I) 

270 NEXT I 

280 LET Y=Y/TN 

290 PRINT AT 0,10;"MEDIA: ";Y 
300 LET DP=0 

310 FOR I=1 TO TN 

320 LET DP=DP+( (ABS (X(1)-Y))** 
B*C(I) 

330 NEXT '1 


onde x é a nota, X é a média, f é a fre- 
quência e n o número de notas. 

A sub-rotina que começa na linha 
8000 gera os eixos, marcados de Q a 10 
na horizontal e graduados de S em 5 
na vertical. Já a que começa na linha 
9000 é uma auxiliar da ordenação das 
notas (sub-rotina de troca). 

Você poderá modificar o programa 
facilmente, adaptando-o para casos es- 
pecíficos. Para arquivar os dados, basta 
digitar S (neste caso, para restaurar o 
programa sem a perda dos dados, utili- 
ze LOAD “HISTOGRAMA”). Para lim- 
par o arquivo e plotar outro histograma, 
pressione ENTER ou NEWLINE. 


Luís Peres Azevedo é engenheiro eletricis- 
ta pela UFRJ desde 1979 e professor univer- 
sitário de Computação e de Eletrônica. É 
também um dos dirstores da Microidéia Sis- 
temas, Educação e Informática Ltda. 


335 LET DP=SQR (DP/TN) 
340 PRINT AT 1,2;"DESVIO PADRAO 
: ";DP 
350 STOP 
8000 FOR I=2 TO 43 
8005 PLOT 2,1 
B010 NEXT I 
8030 FOR 1I=2 TO 47 
8040 PLOT 1,2 
8050 NEXT I 
8060 FOR I=0 TO 9 
8070 PRINT AT 21,1*2+2;I 
8080 NEXT I 
8090 PRINT AT 21,22;10 
8100 FOR 1I=7 TO 43 STEP 5 
8110 PLOT 1,I 
8120 NEXT I 
8150 RETURN 
8200 STOP 
9000 LET V=X(J) 
9005 LET X(J) =X(J+1) 
9010 LET X(J+1)=V 
9015 LET CH=1 
9020 RETURN 
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Numa sala de aula do futuro, , » 


um irônico inspetor repreende seus alunos... 
- Compatível com 
MmICTO. programas em fita 
cassete ou em disco. 





e Pá º 
Bronca cibernética deb pm RR mes A 
microcomputador pessoal simples, de fácil mesma forma que no terminal de vídeo 
q manejo e um sofisticado microcomputador de uma grande empresa. 
Luiz Bessa(*) = profissional, você pode ficar com os dois. Com o CP 300 você pode 





| Porque chegou o novo CP 300 Prológica fazer conexões telefônicas 
O novo CP 300 tem preço de Para coleta de dados, 
eus distintos e esti- lições de solfejo para a turma B de acendendo o cigarro usando a tela em microcomputador pequeno. Mas memória se utilizar 
M mados alunos, antes Música e cinco aulas de Alemão, onde ate cmg máxima com aquele pro- de microcomputador grande de uma 
a” de começarmos nos- os senhores verão de novo a popular graminha CAD de Física para desen- iá m 
sas aulas de hoje, gos- Frau Bertha fazendo biquinho em volver lentes biconvexas de Frenel, Ele já nasceu com 64 stage 


taria de lhes transferir o recado envia- 
do pelo nosso diretor: 

Cada um desses consoles individuais 
representa a pressuposta ponte que liga 
a maravilha técnica do Banco de Dados 
de todo o conhecimento humano com 
outra maravilha da natureza, que é a 
maior aproximação teórica e prática do 
vácuo absoluto, e os senhores sabem 
exatamente a que me refiro. Tenho 
até a impressão de que, quando Sa- 
muel Beckett, o ilustre irlandês, escre- 
veu que “tua mente, nunca muito ati- 
va em tempo algum, o está agora mui- 
to menos do que nunca”, estava com 
vocês na mente e no coração. 

No tempo dele, os alunos sentavam- 
se em carteiras ou bancos escolares e 
eram obrigados a escrever tudo sem 
qualquer recurso audiovisual e contan- 
do somente com livros e cadernos de 
apontamentos. Hoje, no lugar de car- 
teiras, os senhores possuem computa- 
dores e não mais é preciso trazer livros 
ou cadernos de casa, já que todas as 
anotações são feitas em meio magnético 
entre os terminais da escola e o domés- 
tico. Eventualmente é necessário trans- 
portar um trabalho, mas isto é feito 
em disquinhos de 1 Megabyte não 
maiores que moedas. 

disco desta semana, além de 
todo o material didático 
auxiliar incluindo avisos, re- 
comendações, exercícios so- 
bre linguagem, ainda inclui um dicio- 
nário mitológico, a Odisséia do velho e 
bom Homero, belamente comentada, o 
Ulisses de Joyce, críticas e anotações, 


close todas as vezes que pronuncia um 
U tremado. 

Na vida, no entanto, tudo tem seu 
preço. E cada aparelho destes, embo- 
ra doados à comunidade, custa uma 
permanente pequena fortuna para in- 
cremento e manutenção. Assim, seria 
de se esperar que os senhores tratas- 
sem seus terminais com mais carinho. 
Carinho, gratidão e respeito, pois foi 
através deles que aprenderam tudo o 
que se supõe que sabem, desde o currí- 
culo formal — e este eu ponho em dú- 
vida — até toda a sorte de inconfessá- 
veis patifarias representadas pela fabu- 
losa quantidade de cultura alternati- 
va que conseguiram armazenar até 
hoje. 


stes instrumentos, é bom lem- 
brar, são propriedade da escola 
e, portanto, Coisa Pública, 


assim como os terminais do- 
mésticos em que deveriam ser feitos os 
trabalhos de casa. Eu acho que os se- 
nhores ainda não conseguiram fazer a 
mais leve idéia do que significa o custo 
de túdo isto, especialmente as caríssi- 
mas telas holográficas coloridas de alta 
resolução. 

Ocorre, lamentavelmente, que nesta 
sala, e somente nesta sala, em apenas 
uma semana, foi preciso substituir 
quatro tubos queimados sem qualquer 
possibilidade de recuperação. 

Assim, meus diletos e dedicad íssi- 
mos anjos, acho extremamente reco- 
mendável ouvir o conselho deste velho 
inspetor. Se optarem pela negativa, 
o primeiro patife que for apanhado 


vai se dar muito mal. No menu que 
pessoalmente preparei para o infeliz, 
há duas semanas de suspensão, blo- 
queio de todas as atividades de lazer 
do terminal doméstico e exames médi- 
cos e psicológicos para os fumantes. 
, para não perder o prestígio 
de carrasco e outras adjetiva- 
ções de uso menos familiar 
com que os senhores distin- 
guem a mim e alguns dos meus familia- 
res mais próximos, enviarei para os res- 
pectivos papaizinhos as contas das pe- 
ças repostas, mão-de-obra e os recibos 
dos médicos e psicólogos. Todos os 
recibos, incluindo os destes dois últi- 
mos profissionais e que costumam ser 
bastante salgados, serão emitidos pelo 
programa NDIR, o muito apreciado 
Não Dedutível do Imposto de Renda, 
que todos os pais adoram receber. 
Agora, depois desta confraterniza- 
ção, eu vou confraternizar com a tur- 
ma da sala ao lado e os senhores terão 
sua aula de Estruturação Analítica das 
Linguagens, com ADA para o prato 
do dia. E uma última coisinha: o engra- 
çadinho que trocar o nome da filha 
de Lord Byron, de Ada para Linda 
Lovelace, ainda vai receber um prêmio 


extra... = 
[so 


(*)Luiz Bessa é o pseudônimo literário do 
professor Amélio Pinto Ribeiro, livre docen- 
te em Angiologia pela UFRJ e diretor de 
publicações da Sociedade Brasileira de An- 
giologia. O Dr. Amélio trabalha com compu- 
tadores desde 1980 e possui três microcom- 
putadores. 
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Discos Magnéticos: 5 Mb, 16 Mb, 80 Mb etc 
Com. e Megresentaçãos Lida. Diskettes: 5 1/4, e 8 Polegadas — Simples e Dupla Face 
ETIQUETAS PIMACO — PIMATAB 


AV. PRESIDENTE VARGAS, 482 - GR. 207 - TELS: (021) 263-5876 - 253-1120 - RJ 


SUPRIMENTO É COISA SÉRIA 


I À À | ) À I À e Matenha o seu computador bem alimentado adquirindo produtos de qualidade consagrada. 

[ É h e Fita Magnética: 600, 1200 e 2400 Pés 

e Fita CARBOFITAS p/Impressoras: Globus M 200 — B 300/600 
e Fita p/Impressoras: Elebra, Digilab, Diablo, Centronic etc. 

e Cartucho Cobra 400 

e Pastas e Formulários Continuos. 
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kbytes de memória 


conexão 


ria externa para até 
quase 1 megabyte 
E tem um teclado profissional, 
que dá ao CP 300 uma versatilidade incrível. 
Ele pode ser utilizado com programas de 
fita cassete, da mesma maneira que com 
programas em disco RH ||| 64 | 
O único na sua faixa que já 
nasce com 64 kbytes de memória. 








e ainda dispor de todos 


terminal de vídeo. 


você estará apto a operar qualquer 
outro sistema de microcomputador 


Nenhum outro microcomputador pessoal 


na sua faixa tem tantas possibilidades de 
expansão ou desempenho igual 
CP 300 Prológica 


Os outros não gsm PROLOGICA [si 
EB microcomputadores 


fazem 0 que ele faz, 


e] 
pelo preço que ER 
ele cobra EH . 


Ma 





- 
e, 

o A A 
A 

E 


a um televisor comum 
Os programas existentes ou a um sofisticado 

possibilidade de Permite para o CP 500 ou 0 
TRS-80 americano. E o que é melhor 











prRRRRrrrRrrrr, 


E AO TE UE VE O O RR Una! 
oryvererrwtxirtémmm a 
mMetphksrhrtcEMRR a 
CFLreretuumams 


À vendo nos boss cosas do ramo, lojos especializados de fotovideo-som e prondes mogerines em ALAGOAS - Moceió, Palmeira dos indios AMAIONAS - Manous, BAHIA . Solvodor, CEARÁ - Forto 
lezo. DISTRITO FEDERAL - Brasílio ESPÍRITO SANTO - Vitório, GOIÁS - Colónia MATO GROSSO - Cuiobé. MINAS GERAIS - Belo Horizonte, Divinópolis, Hojubo, Juis de Foro. Poços de Caldos, São 


Jobs Del Rei. Teófilo Otoni, Uberiândio, Uberobo. Viçoso. PARAÍBA - Compino Gronde, PARÁ - Belém PARANÁ - Curitiba, Londriso, Moringó, PERNAMBUCO - Recife. RIO DE JANEIRO - Compos, Ni 
terái, Novo Friburgo. Petrópolis, Rezende, Rio de Joneiro, Volto Redondo. RIO GRANDE DO SUL - Bogé. Coroas, Corias do Sul, jul, Novo Homburgo. Pelotos. Porto Alegre Sont Anna do Livramen 
ta, Santiago. Sonto Roso. São Leopoldo. RIO GRANDE DO NORTE - Notol. RONDÔNIA - Porto Velho, SÃO PAULO - Aroroquaro, Assis, Avaré. Bauru, Birigui, Botucatu, Compinas, Catanduva. Franca 
Guorulhos. Itu. Jocorei, Joú. Limeira, Lins, Morilio. Mogi Guaçu, Mogi dos Cruzes, Ourinhos. Piracicaba, Pirossunungo, Promissão, Rio Claro, Ribeirão Preto. Sontos, Sonia Barb. Oeste, São Ber 


nordo de Compo, São Jogo da Bos Visto, São Seba. da Gromo, São Corios. São José do Rio Preto, São José das Compos. Stº André, São Paulo, Sorocaba, Suzano, Touboté, SANTA CATARINA - Bluma 
nou, Brusque, Florinópolis. Hojol, Joinville, SERGIPE - Aracaju, Se você não encontrar este equipamento no suo cidode ligue paro (011) 800 - 255 8583 
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